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Appendix 

Sof tware  Listings 

This  appendix  contains  the  compiled  listings  of  the  programs  used 
in  this  development  effort.  The  list  begins  with  the  data  link  and 
network  simulations  followed  by  the  validation  and  test  software  used 
with  the  UNID  II  and  the  NETOS.  The  simulated  host  software  for  the 
CP/M  system  follows  next  with  the  listing  of  the  SEC  544  monitor 
concluding  the  appendix. 

This  appendix  is  subdivided  into  six  sections  which  are  listed  as 
follows: 


Listing 

Page 

1.  Data  Link  Layer  Simulation 

H-2 

2.  Network  Layer  Simulation 

H-38 

3.  SBC  544  Validation 

H-73 

4.  Host  CP/M 

H-114 

a.  PL/M80  Listing 

H- 114 

b.  Assembly  Language  Listing 

H-134 

5.  SBC  544  Monitor 

H-147 

H  -  1 


1 .  Data  Link  Layer  Simulation 

The  purpose  of  this  program  is  to  simulate  the  data  link  layer 


software  on  the  Intel  Series  III  software  development  system. 


ISIS-II  PL/M-86  V2.1  COMPILATION  OF  MODULE  MAIN 
OBJECT  MODULE  PLACED  IN  NETNEW.OBJ 
COMPILER  INVOKED  BY:  PLM86  NETNEW.U2 


$ T I TLE< 'UN  ID  II  NETWORK  TEST  PROGRAM,  30  SEP  84') 

SXREF  OPTIMIZED) 

/■*»•*****»»******»*»***•***«*»***«********•********•*#*•»#*«•»# / 


/*  */ 

/*  DATE:  30  Sep  84  */ 

/*  VERSION:  1.0  V 

/*  V 

/*  TITLE:  UN  ID  II  Network  Simulation  Program  */ 

/*  FILE  NAME:  NETNEW.U2  */ 

/*  OWNER:  C.  T.  Childress  V 

/*  V 

/*  SOFTWARE  SYSTEM:  Intel  Series  III,  ISIS  II  (V  4.2,  4.3)  */ 

/*  USE:  Simulate  the  function  of  the  data  link  I  aye-  V 

/*  on  the  Intel  Series  III  software  development  */ 

/*  system.  */ 

/*  V 

/*  CONTENTS:  Listing  for  the  data  link  layer  simulation.  */ 

/*  */ 

/*************»***********#***»***«**■*#**#***************#*****  y 

. . ****** . ...*.***.*********»****.*.■ 

PROLOGUE  -  MODULE  N.MAIN$U2  DATE  TRANSLATED:  5  APR  84 

DATE  LAST  MODIFIED:  30  SEP  64,  1400  HRS 


THE  PURPOSE  OF  THIS  MODULE  IS  TO  PROVIDE  THE  UN  ID  II  NETWORK  OPERATING 
SYSTEM  (N.OS)  WITH  THE  MAIN  LINE  OF  PROCESSING.  THE  N.OS  IS  REQUIRED  TO 
INPUT  AND  OUTPUT  DATA  PASSED  TO  IT  FROM  FOUR  LOCAL  CHANNELS  OR  RECEIVED  FROM 
EITHER  NETWORK  CHANNEL  A  OR  B. 

THIS  MODULE  CONSISTS  OF  THC  MAIN  LINE  PROCEDURE  'MAIN',  AND  PROCEDURES 
INITSNSTAB,  DETSDESTSONE,  DETSDESTSTWO,  DETSDESTSLN,  LDSTABSHSKP, 
SRVCJTABIHSKP,  BU  I LDS  I  SFRANE ,  BU ILDSSJFRAME ,  ROUTES  IN,  ROUTESOUT, 
TIMESOELAYSCHA,  AND  T I MESDELAYSCHB. 


1  MAIN:  DO; 

. . ***  EXTERNAL  PROCEDURES  FOR  ISIS  SYSTEM  CALLS  *************/ 

2  1  DQSDECOOE$EXCEpT  I  ON :  PROCEDURE  (ERRN'JM,  EXCEPT  I ONSP,  STATUS)  EXTERNAL; 

3  2  DECS  ARE  ERRN'JM  WORD; 

4  2  DECLARE  (EXCEPT  I ON$P,  STATUS)  POINTER; 

5  2  END  DQSDECODESEXCEPTI ON; 


6  I 

7  2 


DQSCLOSE :  PROCEDURE  (AFTN,  STATUS)  EXTERNAL; 

DECLARE  AFTN  WORD,  STATUS  POINTER; 


PL/M-86  COM J I L  LR 
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8  2 
9  I 
10  2 

1  1  2 

12  I 

13  2 

14  2 

1b  1 
16  2 

17  2 

18  1 

19  2 

20  2 

21  1 
22  2 

23  2 

24  2 

2b  I 
26  2 

27  2 

28  2 

29  1 

30  2 

31  2 

32  2 

33  I 

34  1 
3b  1 
3b  1 
37  I 

3b  1 
39  1 


40  I 


END  DOSCLOSL; 

OOSOEfACH:  PRi  CEOURL  (CONNECTION,  EXCEPTiP)  EXTERNAL; 

DECLARE  CONNECTION  WORD,  EXCEPTiP  POINTER; 

END  DQiGETACH; 

DOiEXIT:  PROCEDURE  (COMPEL T I ONiCOUt )  EXTERNAL; 

DECLARE  COMPLE T I  ONiCODt  WORD; 

END  DQiEXIT; 

DOiATTACH:  PROCEDURE (PATH$P,  STATUS)  WORD  EXTERNAL; 

DECLARE  (PATHiP,  STATUS)  POINTER; 

END  DQiATTACH; 

OlJiCKEATE:  PROCEDURE  (PATHiP,  STATUS)  WORD  EXTERNAL; 

DECLARE  (PATH$P,  STATUS)  POINTER; 

END  DQiCRtATE; 

DOiOPEN:  PROCEDURE  (AF1N,  MODE,  NUMiBUF,  STATUS)  EXTERNAL; 

DECLARE  AFTN  WORD,  STATUS  POINTER; 

DECLARE  (MODE,  NUMiBUF )  BYTE; 

END  DOiOPEN; 


UglREAO:  PROCEDURE  (AFTN,  BUFFER,  COUNT,  STATUS)  ADDRESS  EXTERNAL; 

DECLARE  (AFTN,  COUNT)  WORD; 

DECLARE  (BUFFER,  STATUS)  POINTER; 

END  DQiREAD; 

DOiWRITE;  PROCEDURE  (AFTN,  BUFFER,  COUNT,  STATUS)  EXTERNAL; 

DECLARE  (AFTN,  COUNT)  WORD; 

DECLARE  (BUFFER,  STATUS)  POINTER; 

END  OQiWRITE; 


DECLARE  (ACTJAL,  STATUS)  ADDRESS; 

DECLARE  STATUSJPTR  (81  )  BYTE; 

DECLARE  BUFFER  (128)  BYTE; 

DECLARE  (KiCONN,  WiCONN)  ADDRESS  PUBLIC; 

DECLARE  07  LITERALLY  ' GDH ' , 

LF  LITERALLY  'OAH’; 

DECLARE  CRiLF  (2)  BYTE  DATA  (ODH,  OAH); 

DECLARE  MESSAGE  (*)  BYTE  DATA  (ODH,  OAH, 

THIS  IS  THE  TEST  MESSAGE  THIS  IS  THE  TEST 

MESSAGE  1 1 ! 1 1 ' ) ; 


END  EXTERNALS 


/ 


DECLARE 

FALSE  LITERALLY  'DIP,  /*  USE  AS  FLAGS  TO  TEST  V 

TRUE  LITERALLY  'OITH',  /*  BITS  FOR  BRANCHING  */ 

CONCTC  LITERALLY  'OUbH',  /*  NETWORK  MONITOR  CTC  POTT  ADDRESS  V 

CONCMD  LITERALLY  'ODFH', 

/*  NETWORK  MONITOR  USART  COMMAND  PORT  ADDRESS  V 


H 
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CONDAT  LITERALLY  'ODER1, 

/*  NETWORK  MONITOR  USART  DATA  PORT  ADDRESS  V 
NET*R I *DLS r *EKR  LITERALLY  MO',  /*  NET  ROUTE* IN  DEST  ERROR  ENTRY  V 
NET*RO*DE$T*ERR  LITERAlLY  'll',  /*  NET  ROUTESOUT  DEST  ERROR  ENTRY  */ 
PACKE  T* SI ZE  LITERALLY  '1 33',  /*  PACKET  IS  133  BYTE  BLOCK  */ 

PACKETS*  I  N$  TABLE  LITERALLY  MO',  /*  t  PACKETS  IN  TABLE  V 
PACKE T*TABL£*S I ZE  LITERALLY  M 330  1 , 

FRAMEiSIZE  LITERALLY  M35', 

FRAMES* I N*TAt3LE  LITERALLY  *10', 

FRAMEtTABLF.tSIZE  LITERALLY  '1380', 

DATAJSI ZE  LITERALLY  *128', 

I P*OATA*S I ZE  LITERALLY  '96', 

ICP*DATA*SIZE  LITERALLY  '72'; 


/*  NETWORK  VARIABLES  FOR  THIS  UNiD  V 

/*  NOTES:  1.  THI SJUNIDJNBR  MUST  REFLECT  WHICH  UN  10  THiS  IS. 

2.  TH I SJCOUN TOY* CODE  MUST  REFLECT  THE  AREA  TO  WHICH  THIS 
UNID  IS  LOCATED. 

3.  MAX*GOUNTRY*COD£  WILL  INDICATE  WHICH  COUNTRY  COOES 
ARE  CURRENTLY  OPERATIONAL.  CC  =  0000  IS  RESERVED 

FOR  THE  DELNET  MONITOR. 

4.  MAXJNE rwORNiCOOE  WILL  INDICATE  HOW  MANY  UN  IDS  ARE 
CURRENTLY  OPERATIONAL  WITHIN  A  PARTICULAR  COUNTRY. 

b.  FOR  DETAILED  INFORMATION  ON  THE  ABOVE,  REFER  TO 
PHI STLR'S  THESIS,  APPENDIX  D.  V 


41 


DECLARE 

TH I S*UN I D*NBR  LITERALLY  '02H',  /*  UNIQUE  ADDRESS  OF  THIS  UNID  */ 

THI S*COUNTRY*COOE  LITERALLY  '01H',  /*  COUNTRY  WHERE  THIS  UNID  RESIDES 
MAXJCOUNTRY*CODE  LITERALLY  '01H',  /*  COUNTRIES  CURRENTLY  OPERATIONAL 
MAXSNETWORKtCODE  LITERALLY  '03H', 

/*  NUMBER  OF  UN  IDS  OPFRAT I ONAL  IN  CC  V 
STATSNlR  LITERALLY  '20',  /*  NUMBER  OF  ENTRIES  IN  STATUS  TABLE  V 

/*  VARIABLES  USED  IN  THIS  SIMULATION  V 
CTCNOA  BYTE,  /*  PROGRESSIVE  NUMBER  OF  TIME  COUNTS  FOR 
NETWORK  CHANNEL  A  V 

CTCNOB  BYTE,  /*  PROGRESSIVE  NUMBER  OF  TIME  COUNTS  FOR 

NETWORK  CHANNEL  B  V 


MAXNOA  LITERALLY  '3',  /*  PREVIOUSLY  64H  =  10UD  */ 

/*  MAXIMUM  NUMBER  OF  TIMING  COUNTS  FOR  NETWORK  CHANNEL  A 

MAXNOH  LITERALLY  '3',  /*  PREVIOUSLY  b4H  =  1000  V 

/*  MAXIMUM  NUMBER  OF"  TIMING  COUNTS  FOR  NETWORK  CHANNEL  B 

RETRANStA  BYTE, 

/*  PROGRESSIVE  NUWiER  OF  RETRANSMISSIONS  OF  A  FRAME  V 
HE TRAN SiB  BYTE, 

/*  PROCRE SS I VE  NUMBER  OF  RETRANSMISSIONS  OF  A  FRAME  V 
MAXKE TRANSJA  LITERALLY  'O', 

/»  MAXIMUM  NUMBER  OF  RETRANSMISSIONS  OF  A  FRAME  V 
MAXRURANSSB  L  I  TER  ALLY  '6'; 


V 

V 


-  b 
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/*  MAXIMUM  NUMBER  OF  RETRANSMISSIONS  OF  A  FRAME  V 


42  1 

DECLARE  BUSYSTATUS 

LITERALLY  'OFFH' , 

NMBtUMSK 

LITERALLY  '07H\ 

ESC 

LITERALLY  ' 1 BH 1 , 

EOT 

LITERALLY  '04H'; 

43  1 

DECLARE  ASCI  1 <») 

BYTE  DATA! '01 23456789ABCDEF ' > ; 

44  1 

DECLARE  MSGNUM 

BYTE; 

4b  1 

DECLARE  OUTJTABiFuLL 

.  BYTE; 

/#**<MM»***##**»****l»***fr»****#«**#t*«**  M**»»»#»**»ttl»*»M***»»»#*#»k***/' 

/*  DLr  INI  CIONS  FOR  THE  NETWORK  SERIAL  INPJT/OUTPUT  USARTS  */ 

/»***»**»«»•»»•»•»»«»»»**»*»»»»*»•  #*»*»*»#»*»«****»*»****»#i<-******#  **»»»»/ 

46  I  DECLARE 

BAUD3LSB  BYTE, 

BAUD$MSB  BYTE, 

NUM$BYTES$SENT  INTEGER; 

/*  MORE  TO  HE  ADDED  LATER  */ 

/*»*»**»»*»#****»»»»*»*»»**»*«»«»»»»***#»»•**##»»»#**##*»*»»*************/ 

/»  ADDITIONAL  GENERAL  DECLARES  NEEDED  FOR  THIS  PROGRAM  */ 

/»,►*»*»*»»»#»»*»«*##***«*»»******»»»»**#»**»•*#*##**#**»»*»■**»»*#***»***#/ 

47  I  DECLARE  TIMCHA  BYTE, 

TIMCIIB  BYTE, 

HSKPJERR  INTEGER; 

/*  MORE  TO  BE  ADDED  LATER  V 

/**  ##»**»»**»•»**'»#»»•»»»*•»*»*»»*»*•»»»»»**»***»»  »«»***»***»*»****  *•***•«/ 


/*  DATA  TABLES  USED  IN  THIS  PROGRAM  V 

. . . . *»* . * . ..***..*.*.****»..****»*./ 


48  I  DECLARE 

NTO 1RX( FRAME  l TABLETS  I ZE )  BYTE, 
NT01NS  INTEGER, 

NTOINE  INTEGER, 

NT01SZ  INTEGER, 

NI0ZKa(FKAI4L$TABLF.$S I  ZE  >  BYTE, 
N  TOZNS  INTEGER, 

N  T02NE  INTEGER, 

NT02SZ  INTEGER, 

NT01  TXIFRAlCiTABLEtSIZE)  BYTE, 
1X01  NS  INTEGER, 

TX01NE  INTEGER, 

TXOISZ  INTEGER, 


H 
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NT02TX (FRAMESTABLESS I ZE )  BYTE , 

TX02NS  INTEGER, 

TX02NE  INTEGER, 

TXC2SZ  INTEGER, 

LCNTT8 (PACKETS TABLESS  I ZE )  BYTE, 

LCNTNS  INTEGER, 

LCNTNE  INTEGER, 

LCNTSZ  INTEGER, 

NTLCTB  (PACKETS  TABLESS I  ZE)  BYTE, 

NTLCNS  INTEGER, 

NTLCNE  INTEGER, 

NTLC3Z  INTEGER, 

STATTB ( STATSNBR )  BYTE ; 

49  1  DECLARE  FRAME  STRUCTURE (ADORES  BYTE, 

CONTROL  BYTE, 

PACKETSDEST  BYTE, 

PACKETS  SOURCE  BYTE, 
PACKETSSEQ  BYTE, 

PACKETS  SPAR!  BYTE, 

PACKETS SPAR 2  BYTE, 
PACKETSDATA (DAT ASSIZE)  BYTE) 

(• 

50  1  DECLARE  PACKET  STRUCTURE (DEST  IN  BYTE, 

SOURCE  BYTE, 

SEQUEN  BYTE, 

SPARE!  BYTE, 

SDARE2  BYTE, 

DATAM(DATASSIZE)  BYTE); 

51  1  DECLARE  I  PD AT A  STRUCTURE ( VERSS I HL  BYTE, 

TYPESSERV  BYTE, 

TOTSLEN1  BYTE, 

TCTSLEN2  BYTE, 

I  OS!  BYTE, 

IDS  2  BYTE, 

FL AGSrRAG  BYTE, 

FR ASOF  F  BYTE, 

TIMESlIVE  BYTE, 

PROTO  BYTE, 

CHKSUMS1  BYTE, 

CHKSUMS2  BYTE, 

S0RCSADDR(4)  BYTE, 
l)ESTSADDR(4)  BYTE, 

OPT  1 0(5(3)  BYTE, 

PADDING  BYTE, 

DATAMt IPSDATASS I ZE )  BYTE); 


H 
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52  I  OECLAKE  TCPDATA  STRUCTURE ( SOURCESPORT ( 2 )  BYTE, 

DEST I NSPORT ( 2  >  BYTE, 
SK0JENSN'JM(4)  BYTE, 
ACKSNUM<4)  BYTE, 
DATASOFFSPLUS  BYTE, 
RESERVJPuUS  BYTE, 
W I NDOW ( 2 )  BYTE, 
CHECKSUM (2 )  BYTE, 
URG£NT$°TR( 2 )  BYTE, 
OPTIONS! 3)  BYTE, 
PADO I NG  BY  TF. , 


DATAM(TCPSDATASSIZE)  EYTE ) ; 


/*  MISCELLANEOUS  DECl.AR*tI  ONS  */ 

53  1  DECLARE 

FOREVER  BYTE, 

DESTINATION  WORD,  /*  DESTINATION  O'  A  FRAME  V 

SEQSBlTSA  BYTE,  /*  ACKNOWLEDGE  VARIABLE  DECLARATIONS  V 

SEQSBITS9  BYTE, 

INPUTJSEOJBI T$A  BYTE, 

INPUTSSEQSB I TSB  BYTE, 

TH I SSSEOSB I TSA  BYTE, 

TH I SSSCQSS I TSB  BYTE; 

54  1  DECLARE  STARTUPSKOR!*)  BYTE  D  AT  A  ( CR ,  ll' , 

'  UNID  II  #3  NETWORK  OS'.CR.l.F, 

'  VERS  1.0,  30  SEP  1 934 ' , CR ,LF , 

'  EXECUTING', CR,LF); 


55  1 

DECLARE 

TPS1 (*)  BYTE  DATA(CR,LF, 

'  TPJ1 

ENTERING  INITSNSTAB  PROCEDURE'); 

56  1 

DECLARE 

TP$2(*)  BYTE  DATACCR.LF, 

'  TPS2 

ENTERING  INS  10  PROCEDURE ’) ; 

57  1 

DECLARE 

TP$3(*>  BYTE  DATA(CR,LF, 

'  TPS  3 

STARTING  ROUTES  IN  -  ROUTESOUT  LOOP'); 

00 

in 

DECLARE 

TPS4 (*  )  BYTE  DATA(CR,LF, 

'  TD$4 

ENTERING  ROUTES  IN  PROCEDURE'); 

59  1 

DECLARE 

TPS5 (*)  BYTE  DATA (CR , LF , 

'TPS  5 

INCOMING  FRAME  LOCATED  IN  NETWORK  CHANNEL 

60  I 

DEO.  ARE 

TPS6(* )  BYTE  DATA(CR,LF, 

'TP$6 

FRAME  IS  NT01RX  TO  NT02TX  TRANSFER’); 

61  1 

DECLARE 

TP$ 7 (* )  BYTE  DATA(CR,LF, 

'TP$7 

DATA  IS  DESTINED  FOR  THIS  UN  10'); 

62  ; 

DECLARE 

TPS8C*)  BYTE  OATA(CR,LF , 

1  TP$9 

FRAME  IS  INCOMING  S  FRAME’); 

63  1 

DECLARE 

TPS9(*>  BYTE  DAT  A (CR ,LF , 

'  TPS9 

THIS  SEOSPITSA  =  1 ' ); 

64  1 

DECLARE 

TPS  1 0 (*  )  BYTE  DATA(CR,LF, 

'TPtIO 

THIS  SEOSBITSA  =0’); 

H 
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65  1 

DECLARE 

TPS1I  (*  >  BYTE  DATACCR.LF, 

' TPS 11 

FRAME  IE  INCOMING  <  FRAME  '  ) ; 

i:j-s  j  ; 

DECLARE 

TPS  1 2  ( *  )  BYTE  DATA (CR ,LF  , 

' TPS 1 2 

INPUT  SEvSBITSA  =  1  '  ); 

67  1 

declare 

TP$ 1 3 ( *  1  BYTE  DATA ( CR ,LF  , 

• TPS 1 3 

INPUT  SECS? ITS  A  =  C’>; 

62  1 

DEClARL 

TPS  141*1  BYTE  DATA(CR,Lf, 

'TPS  14 

INCOMING  FRAME  LOCATED  IN  NETWORK  CHANNEL  6’); 

69  ! 

DECLARE 

TPS  1 5 (* )  BYTE  JATA(CR,Lr, 

•TPS  15 

FRAIL  IS  NT'c’RV  TO  NTO 1  T r.  TRANSFER’); 

70  I 

DECLARE 

TPS’  6 ( *  )  BYTE  DATACCR.lF, 

■TPS  16 

DATA  IS  DESTINED  FOR  THIS  UNID’); 

71  1 

DECLARE 

TPi 1 7 ( * )  BYTE  DATACCR.LF, 

' TpS 1 7 

FRAME  1  S  1  NCO^i  N3  S  FRAME  ’  ) ; 

77  1 

DECL  ARE 

TPS 1 3 (* )  BYTE  DATA (CR ,LF , 

■TPSie 

THIS  SEQSB! T$B  =  1‘); 

73  1 

DECLARE 

TP{ 1 9 ( * )  BYTE  DATACCR.LF, 

' TP5 1 ? 

THI S  SEySBITSB  =  O'); 

74  1 

DECLARE 

TPS20C* )  BYTE  DATACCR.LF, 

'  TPS  20 

FRA'-T  IS  INCOMING  1  FRAME'); 

75  1 

DECLARE 

TPS  21 (*  )  EYTE  DATA ( CR ,LF , 

'PS  21 

!N=UT  SEQSB 1 T$3  =  !'); 

76  1 

DECLARE 

TPS22!*)  BYTE  DATACCR.lF, 

'TPS22 

; N°UT  SEQSGI T$B  =  O'); 

;  7 

DECLARE 

TPS23  (*  )  BYTE  DATACCR.LF, 

•  TPS  2  3 

PACKET  located  IN  LCNTTB'); 

76  1 

DECLARE 

TPS24P)  BYTE  DATACCR.LF, 

'TPS24 

l\ COM  ML-  PACKET  DESTINED  FOR  CHANNEL  A'); 

79  1 

DECLARE 

TPS26<*)  BYTE  DAT  A (CR ,LF , 

'TPS^ 

INCOMING  PACKET  DESTINED  FOR  CHANNEL  O'); 

SC  1 

DECLARE 

TPS26 ( *  )  BYTE  D AT A (CR ,LF , 

'TPS  26 

OUTGOING  FRAME  LOCATED  IN  NETWUR'V  CHANNEL  A'); 

Si  t 

DECLARE 

TPS27 (* )  BYTC  DATA (CR,LF , 

' TPS27 

FRA'C  IS  NT01TX  TO  (CHANNEL  A  TRANS-lR  ’  ) ; 

8,?  1 

DECLARE 

TPS28(»)  BYTE  DATA ( CR ,LF , 

' TPS2S 

OUTGOING  FRAME  LOCATED  IN  NETWORK  CHANNEL  B'>; 

6  5  ' 

DECLARE 

TPS 29 ( *  )  BYTE  DATACCR.L.F, 

'TPS29 

FRAME  IS  NT02TX  TO  CHANNEL  B  TRANSrE  C '  ) ; 

54  I 

DECLARE 

TD$30f * )  BYTE  DATACCR.LF, 

' TPS 30 

DESTINATION  OF  NT01R3  IS  NL ' ) ; 

65  I 

DECLARE 

PS31  ( *  >  BYTE  0  \T A ( Cf-. , LT  , 

' TPS3 ! 

DES’  1  NAT . ON  Or  NTO 1 RX  IS  NN’>; 

6t  ! 

DCClAKl 

TPS  32 ( * )  BY TL  OAT  A (CR ,LF , 

'  TPS32 

DESTINATION  OR  NT02RX  IS  NL  '  ) ; 

?  '  1 

O'.  CL  ARE 

TPS33 ' *  )  EYTL  DATA ( CR ,Lr , 

•TPS 33 

DEST  1  NAT  |  ON  Or  NT02RA  IS  NN  '  ) ; 

66  1 

DECLARL 

TPS34 ( * )  BYTl  CAT  A ( CH ,^r , 

’ TPS  34 

02  ST  ! :,  A  T  1  Of  <  SUN  !  [:■  >-  TH I  SS'UN  1 DSNBR  '  ) ; 

6°  1 

DECT  ARE 

PS55  (*  )  BYTE  lATAlCn.LF, 

•  |pj  y. 

DESTIN-'TPsS.NIJ  <  THI  SSUMDSNBR"  ) ; 

92  1 

Cr  7.  ARE 

TPS’  6  C  J  H  •  TE  DAT  A C:  ,Lr  , 

I! 


'M-Jr.  >i4  ’ll  t  K  UNIT*  I!  NETWORK  Tt_  ST  PKOoKAM,  TO  SeP  Li4 

jo  5  ;  /*  ZENO  I  S  NULL  AND  AN  lRrOR  V 

JU  ‘  DO,  /»  If  CALLED  ro  BUILD  s  FKAi*  FOR  CH  A  V 

)  4  ADDKLSStWOKD  -  HOHNIOITX  (TWINS),  4); 

14  ir  input jsloJoII  -  true  then 

!  4  OONlROLiWOKD  -  OAOH;  /*  CONTJWD  - 

4  4  ELSE  CON  TRUE* WORD  -  OBOR;  i*  CONIJWU  = 

4  4  NiOlRA  (N  i  u  1  NL  > 0 )  -  AUDRtSSiWOKO; 

5  4  NI01KJC  (NiOliOl)  -  CON TKOLJWORD; 

„  I  DO  I Not  X  -  2  TO  ( FRAMES S I ZL  -  1); 

NiolRX  (NiOINL  *  I  NUT  X )  -  V; 

o  *>  L  »-*L> ; 

y  4  _/vi  I  .4  iauJmskP  (1); 


1  u 1 00000 


CONTJWD  -  10000000  V 


/*  If  CALLED  ro  BUILD  $  FRAME  FOR  Crl  B  V 
ADORE SSiWORD  -  ROUNTO.'FX  (Ia02NS),  4); 

IF  iNPUT'ijiF.’iUl  r  ■=  TRUE  I  HEN 

CONTROL  I, (OLD  =  OAO.I;  /*  CONftWD  -  10100000 

LL Si.  CON FROL $ WORD  -  OAOH;  /*  CONTJWD  =  I  0000000 

NT02KX  INT0<MLi-0>  -  ADOHESSJWOMJ; 

NIJ2KX  (NT02NLH)  =  CONTROL! WORD; 
oO  INDEX  •=  2  TO  (FRAME! S I  TE  -  1); 

NI02t\X  (NI02NL  *  INDEX)  -- 

[.NO; 

CAlL  LDjfADiWAP  (2); 


END; 

END  BU  I  Ll)$L  SJFRAME ; 


I  VOUDlIKi'.  StfCV  I  Ot SLOOP 


I  URN!  A  r  (A, 41.  AWUNO  AT  fit  DATA  LINN  LAYER.  THE  SOJ.vTE  AND 
LV.SI.NAriuN  ADDRESS:.!  A:.  SWITCHED  AND  IHL  FRAME  PU  I  INTO  NIL  DATA 
L  1  Mb.  LAYER  TABLE..  AN  A*  VROPi\  I A I E  SUPlKVISORY'  I  kM.Tl  IS  Si. NT  FoR 
RKCliVLD  FRAMES  ANo  Dll  RECEIVED  SUPERVISORY  FRAMES  ArL  DUMPED. 


IN  I  —  Rl  ACL 


LA..  LED  BY  XMI  ISA  AIL  XMI  I  Hi. 


SLRV  i  Cl-.tL  0< i.J :  PR  Y.i.LlLl  \c (  I AIA.l  i  ; 

01  . 1.  CRL  LiiANNil  , ,r  f  , 

ARDR  I  r  RAML !  j  I  .'.I.  )  BY  It, 
I  NF’iSL  vYR  I  I  i'll'-, 

I  ABEL  BY  It, 

I  NDL X  I.VLL.H, 

'Rl  .III  I  II-  ,i  R ; 


Oa  I  i  ;i 


f'L/M-06  COMPILER 
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'70  5 

5  7  7  4 

573  4 

5  7R  4 

530  4 

531  4 

53,7  4 

58  5  4 

534  4 

533  5 

536  3 

587  4 

583  4 


00;  /*  IT  CALLED  TO  RU  !LP  3  1  RAME  FOR  ~H  A 

CALL  SFNDSr_V<*TlH40t  EENOT‘|(  TPS40 !  ' ; 

AODRESStWORD  -  R0KNT01RX  (NT01NS),  4); 

IF  IMPUTSSFOSBIf  -  TRUE  THEN 

CONTROL?' WORD  =  OAOH;  /*  CONTSWE)  =  i 0 1 00000  V 

ELSE  CONTROL  SWORD  -  08011;  /*  CONTSWtv  =■•  10000000  V 

NT01TX  (7X01NE+D)  -  ADDRESStWORD; 

NT01TX  (TX01NE+1)  =  CONTROL SWORD; 

DO  INDEX  =  2  TO  ( FRAME SSI.5C  -  1): 

MT01TX  ( TXD1  ME  INDEX)  -  '/'; 

END ; 

CALL  LOS L ABSHSKP  (5); 

END; 


58)  3 

3RD  4 
5‘>1  4 

502  4 

505  4 

504  4 

'■05  1 
306  4 

507  4 

30q  5 

500  6 

400  4 

401  4 


00;  /*  IE  CALLEO  TO  HU  I  CD  $  FRAME  FOR  CM  B  »/ 

CALL  SENDSEQ(*rr’?41  ,  I.EHOTH(  P>S11  ) ) ; 

ADORF 55 1 WORD  -  R0UNT02RX  (NT02N5),  4); 

IF  INPUTSSEQS3IT  =  TRUE  THEN 

CONTROLSWORD  •••  OAOH;  /*  CONTSWO  -•  ID! 00000  V 

ELSE  CONTROL  SWORD  =  ODOM;  /*  oONTtwn  -  1<\wnono  »/ 

NT02TX  ( TX02NE+0)  =  ADDRESS* WORD; 

NT02TX  (TX02NE+1  )  «  CONTROL* WORD; 
no  INDEX  -  2  TO  (FRAMESSI2F  -  I): 

NT02TX  ( TX02ME  +  INOrvi  -  '/>. 

END; 

CALL  LOSTABSHSKP  (4); 

END; 


402  3  END; 

10  3  2  END  BUILDSSSrRA-lf ; 


PROCEDURE  B'JM-DSlSKramE 
pUR'YESE 

USED  WITH  SERVICES  LOOM  LO  PJRN  THE  FRA 'T  AROUND  AT  THE  DATA  Lit"- 
LATER. 


INTERFACE 

CALI. TO  PY  SFRVI  O.tl .COP 


401  I  BUILDS'. SSFRAME:  PR'nrr»,  (T'l’ir  ,  IMPliTSSE  )«>in  .  :|  EN  T'V.NT ; 

403  2  DECLARE  TABLE  WORD, 

ADORE ‘'SSwnt.’C  MY  IF, 

CONTROL  SWO'YD  BYTE, 

INM|irS'.':0?BI  T  BY  IE  , 

INDEX  INTEOl.D; 


4P6  2  IF  TABLE  I  AMD  TABLE  •-  ?  PIT  N 

407  2  00  '  AS!  TABLE; 


2  2 


H 


Pc /.4-do  COMPILER 


un id  ii  ne twokk  IlST  pkouum,  io  slh  o 


PAiXL  TiSI 2E ) ; 

it )/  4  CAl.L  LUUAB!Hbf.P  (4); 

5oH  4  Llib; 

5uj  5  END; 

i>0  2  EIID  BUILDS  I  Sl-K.A.ML; 

. * . . . . . . 

PROCEDURE  LU  I  LOi  SI1  KAMl  BUILD  A  SUP'.RV  I  SuRY  IK  AML 

IHL  PURPOSE  Of  INIS  PhOCi.UUKE  IS  rj  BUILD  A  SUPt.K/ISuKt  i  NAME  AND  PL  Act. 
II  INTO  I  HE  APPKOPRl  AIL  OUIGOING  TABLE  I  UK  IRANSMI  SSI  ON  U  'IHL  NtlWOKK  VIA 
!.  I  |  (ILK  NETWORK  CHANNEl  A  OK  CHANNEL  H. 

I NPUT 

rill  S  i'KDCLDJkC  15  PASSED  A  TWO  CHAR.(CTLK  ASCII  VALUL  INDICATING  THt 

i.DCA non  or  tml  ourcoiNG  s  praml  and  the  sequence  air  or  the  incow,ng  i 

MAI*.  (MODULO  2). 

PROCESSING 

THL  PKOCtSSING  :>t  GiNG  WITH  THL  PASSING  OP  THE  TABLE  WHERE  THE  NEWLY 
CHEATED  S  Hv\ME  IS  TO  BE  PLACED.  THE  PROCEDURE  THEN  PEKFOHMS  A  SERIES  OF 
LOGICAL  OpLKAIIusS  ANj  DIVISIONS  TO  SWAP  I'Hf  HIGH  4  OHDEH  BITS  OP  IHL 
AduRlSs  WOKO  m I  IH  THE  LDWlK  ORDER  BITS.  THIS  SIMPLY  INTEKCHANGES  THL 
DESTINATION  AND  SOURCE  AGO. (L SSLS.  IT  THEN  SETS  THE  CONTROL  WORD  ACCORDING 
TO  THL  SEQUENCE  BIT  Ot  THE  INCOMING  I  FRAMl .  THESE  BYTES  ARE  THEN  PLACED 
IN  THE  FIRST  AND  SECONU  HEADER  POSITIONS  Of  THE  OUTGOING  NETWORK  TABLE. 

appkopriatl  tabu,  poinieks  are  then  updated. 

OUTrUT 

SEE  PROCESSING  A  BOA. 

I N  I ENI  ACE 

Tills  PROCEDURE  IS  CALLED  BY  ROUTE!  IN  WHENEVER  A  NEW  I  fKAML  ARRIVES. 

NOILS:  1.  I  HE  X. 25  AND  LAI*  PROTOCOLS  AlLGW  LOR  ADDITIONAL  TYPES  OF  S 
FRAMES  WHICH  MAY  bL  I NCORPORATI: I)  DURING  FURTHLR  OCVU.OPMENT. 


5/1  I  BUiLDtSil  RA.-l  :  l  KOll  uUi  ;L  (  I  ABE  F ,  INPUI$SlQ$uI  T I  KltNTKANl; 

5  ( 2  2  Dt  CLARE  1  ABI.L  WORD, 

ADDRl SS$WOl\J  B  Y  Tr  , 

CONIROLSWORD  tlYIE, 

I  NPU  i  isl.QjBI  T  BYTL  , 

INDLa  INTEGER; 


i.'i 

2 

IF 

TAijLL  >-  1 

AND  TAbLE  2  1  HE N 

i/4 

DO 

CAbk  r  Alrk.  1 

- 

i/S 

*  ' 

•'»  cLHO  IS  NUlL  AND  Ail  ERROR  */ 

II 


2  I 


* 


«J  ■  ■  1  »?' 


!• 
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NEWLY  CKt  A I  tO  I  F  KAMI  U  TO  Hi.  PlACEO.  THE  DESTINATION  ADDRESS  IS  READ 
FROM  IHL  HAU.i  I  HEADER  LulaIEu  IN  I ABLE  ECNTTB  AND  PLACED  INTO  IHL 
FRAMl  HEADER  Flr.LD.  IDE  SOURCE  ADDRESS  IS  Tht.N  ADDED  BY  USING  THL 
THISSUNIDiNHR  VAKIAbli  .  IHL  CONTROL  P  I  L-iJ  BY  It  IS  INITIALIZED  TO  ZtH.J 
AND  Mil  L  it  CHANGED  HALLO  UPON  LATER  ACTION  BY  THL  ROUTING  PROCEDURE. 

output  this  prla'i.ou.£  places  the  first  t»o  bytes  into  ihe  indicated 

GUTPUI  TABLE  DlFOKl  IHE  PACKET  IS  TRANSFERRED  OVER  TO  THE  CORRECT 
UUTPUI  NL  I  WOli.N  TABLE. 


INIlhIa.l  This  PROCEDURE  IS  CALLED  FROM  lilt  KOUTEFIN  PROCEDURE  FOR  THOSE 
DAT  A  PACKETS  DESTINED  FOR  THE  NETWORK  ONLY. 

MOTES:  I.  1  HE  lit,  ACER  I  Nr  ORMA  T I  ON  IS  BASED  ON  THE  FIELDS  DEFINED  BY 

PH  I S  TER*  i  Til, SIS  ONLY.  EVEN  THOUGH  THEY  CORRESPOND  TO  IHL  HOLC 

protocol,  caution  should  be  taken  before  auding  or  dlleiing  additional 

i  1C  Al  /I  AS. 

. . . . . »•**«*"•/ 

515  I  BlIILOjiSI  RAMl:  PROCEDURE  ( TABLE)  REENTRANT; 

544  2  DECLARE  I  ABLE  WORD, 

APDRi.SSJBY  II  BYIE, 

CONTROLibYlE  bfIL; 

34‘>  2  ADURLSSlIifTE  ^  (LCN1  IBU.GNVNS  ♦  0)  AND  OF H )  OR 

(ROU( IHISlUN! J$NBR,  4)  AND  OFOH); 


540 

> 

IF  TABLE  >=  1  AND  TABLE  <- 

2  then 

54  7 

/ 

DO  CASE  TABLE; 

54U 

3 

;  /*  zeroth  entry  is 

NULL  AND  AN  ERROR  */ 

541 

3 

DO,  /*  1  frame  is  going 

OUT  NETWORK  CHANNEL  A  */ 

* 

5.0 

4 

CAM  SE'NDSEo(aTP$3.3 

,  LENGTH ( TP$3U) ) ; 

55  1 

1 

NTJIU  ITXUlNEtO)  -= 

ADORE jSiBYTE; 

5 '.>2 

4 

IF  SEO$BI T$A  -  FALSE  THEN 

553 

4 

CONTROLtbYTE  - 

OH; 

5l4 

4 

ELSE  CONTROLJSYTE  = 

20H; 

333 

4 

NTOI TX  1 I XOI Nl+1 )  - 

CON TROLiBYTE; 

5  So 

4 

CALL  MOVBt  JLCNTIU 

(LCNTNS),  uNTOITX  (  TXO i  NL 1 2 ) , 

PACKE  TiSI ZE ) ; 

*■ 

3> ) 

4 

CALL  LDSTABlilSRP  (5); 

53(1 

4 

ENU; 

3s  ) 

3 

DO;  /*  1  FRAME  IS  GOING 

GUT  NETWORK  CHANNEL  B  */ 

5uO 

4 

CALL  SENDSEOtal Pi-59 

,  LEN  3  Ul(  TP$59) ) ; 

5r,  1 

4 

NTOZI.X  C IX02NE+0)  ^ 

ADORE SSSBYTt; 

-*I  V- 

502 

4 

IF  SEOtBITtd  =  FALSE  THEN 

:  -v\; 

505 

4 

CON  THOU  BY  TE  - 

OH; 

5o  1 

4 

t.LSL  CON  I  rOLYIJY  I  E  - 

2011; 

305 

4 

NT021X  (TX02NI  +  I)  - 

C  IN  TROLSBY  TE ; 

.0,1, 

4 

Call  movb<  slcnttk 

(I.CNiNSi,  «N T02TX  (  TX02NE+2  ) , 

II  - 


F.  ■ 


20 


PL/M-86  CONPILER 
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312  4 

313  4 

314  4 

31?  3 

31  o  4 
317  4 

3’ 8  4 

'15  4 

320  3 

321  4 

322  4 

323  4 

324  4 

325  3 

326  4 

327  4 

323  4 

324  4 

337  3 

331  4 

332  4 

'3?  4 

334  4 

335  3 

336  4 

33  7  4 

338  4 
3  37  4 

34  3 

341  2 

34  2  2 


IT  NTUlNS  >-  NT01SZ  THEN  /*  IF  TABLE  WRAP  V 

NT01NS  =  0; 

END; 

DO;  /*  IF  CALLED  TO  HSK=  1 NCO^ I N3  NET  CH  B  TABLF  V 
NT02NS  =  NT02NS  +  FRAMES  3 1 ZE ; 

lr  NT02NS  >=  NT02SZ  THEN  /*  IF  TASlE  WRAP  V 

NT02NS  =  0; 

ENj; 

DO;  /*  IF  CALLED  TO  HSKP  OUTGOING  HE T  CH  A  TABLE  V 
TX01NS  =  TX01NS  +  FRAMES S I 2E ; 

IF  TX01NS  >=  TX01SZ  THEN  /*  IF  TABLE  WRAP  «/ 

TX01NS  =  0; 

END; 

00;  /*  IF  CA_LED  TO  HSKP  OUTGOING  NET  CH  B  TABLE  */ 

TX02NS  =  TX02NS  +  FRA'ICJSlZE; 

IF  TX02NG  >=  T02SZ  THEN  /*  IF  TABLE  WRAP  V 
TX02NS  =  0; 

END; 

DO;  /*  IF  CALLED  TO  HSKP  NETWORK  TO  LOCA.  TABLE  */ 

NTLCNS  =  NTLCNS  +  PACKETSS I  ZE ; 

IF  NTLCNS  >=  NTlCSZ  THEN 
NTLCNS  =  0; 

END; 

00;  /*  IF  CALLED  TO  HOUSlKEEP  LOCAL  TO  NET  TAB^E  V 
LCNTNS  =  LCNTNS  +  PACKETSS I 2E ; 

IF  LCNTNS  >=  LCNTSZ  THEN  /*  ic  TAB.F.  WRV  V 

LCNTNS  =  0; 

END; 

ENG; 

ELSE  HSKPSCRR  *  HSKPSERR  +  1; 

END  S  <\  2S  TABSHSKP; 

/ . ».»...*..*********»*»*.**«**#»•*••* . ******* . *** . 

PROCEDURE  BJ ILDS I S-RAML  TRANSFORM  A  PACKET  INTO  AN  I  FRA^t • 

THF  PURPOSE  OF  THIS  PROCEDURE  IS  TO  TRANSFORM  A  PACKET  OF  DAT  A 
DELIVERED  FROM  THF  LOCAL  SIDE  OF  THE  UNID  INTO  AN  I  FRAME  TO  BE  °l.A;ED  INTO 
ONE  OF  THE  OUTGOING  NET  TABLES.  THIS  PROCEDURE  ADDS  ON  ThE  TWO  HEADER 
BYTES:  ADDRESS  BYTE  AND  CONTROL  BYTE. 

INPUT  THIS  PROCEDURE  RECEIVES  A  TWO  CHARACTER  ASCII  VALUE  INDICATING 

THF  LOCATION  0-"  THE  OJTGOING  NETWORK  PORT  WHERE  THE  NEWLY  CREATED  I 
FRANK  IS  TO  B.7  "LACED. 

PROCESSING  THE  PROCESSING  BEGINS  WITH  THE  PASSING  Of  THE  TABLE  WHERE  THE 
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269 

4 

IF  TX02NE  >=  TX02SZ  THEN  /*  IF  TABi-E  WRAP  V 

290 

4 

TX02NE  =  0; 

291 

4 

END; 

292 

5 

DO;  /*  HSKP  NETWORK  To  LOCAL  TAB-E  */ 

293 

4 

NTLCNE  =  NTLCNE  +  PACKCT$SIZE; 

294 

4 

IF  NTLCNE  >=  NTLCSZ  THEN  /*  IF  TAP.LE  WRA c  V 

29? 

4 

NTLCNE  =  0; 

29L 

4 

END; 

2  97 

.j 

DO;  /*  HSKP  LOCAL  TO  NETWORK  TABLE  V 

293 

4 

LCNTNE  =  LCNTNE  +  PACXETSSIZE; 

299 

4 

IF  LCNTNE  >=  LCNTSZ  THEN  /*  IF  TABLE  W=  K?  V 

300 

4 

LCNTNE  =  0; 

301 

4 

END; 

302 

3 

END; 

303 

2 

ELSE  HSKPSERR  =  HSKPSERR  +  1; 

3C4 

2  END 

LD$TA9$HSKP; 

/*#-#***•**■***#*#*#*■#**#**#*  If*#**#*****  ***•#*##»*■**»*»*#**•■*#**♦«**#■#  **###*« 

PROCEDURE  SRVC$TAB$HSKP  SERVICE  TA%  C  HOJSEKF.EP 

THE  PURPOSE  OR  THIS  PROCEDURE  IS  TO  HOUSEKEEP  A  SPECIFIED  TA6CE  AFTER 
SERVICIN3  (REMOVING  EITHER  A  PACKET  OR  FRAME). 

INPUT  THE  INPUT  IS  AN  INTEGER  VALUE  INDICATING  THE  TAB-E  REQUIRING 
HOUSEKEEPING. 

PROCESSING  THE  PROCEDURE  DETERMINES  THE  TABLE  TO  BE  PROCESS'.''.  ADVANCES 
THE  NEXT  BYTE  TO  BE  SERVICED  POINTER  BY  AA  PACKET  O-v  IMA  1.  o  •  ZE ,  AN.: 
ADJUSTS  FOR  TABLE  WRAP  IF  NECESSARY. 

OUTPUT  THE  SPECIFIED  TABLE  HAS  ITS  NEXT  BYTE  TO  BE  SERVICED  POINTER 
ADVANCED  BY  THE  LENGTH  OF  A  JACKET  OR  FRAME. 


INTERFACE  THIS  PROCEDURE  IS  CALLED  B)  PROCEDURE  KOJTESlN  AND  ROUMJU.T. 
NOTES:  NONE. 


30? 

1 

SRVCJTAB$HSKP :  PROCEDURE ( TABLE )  REENTRANT ; 

300 

2 

DECLARE  TABLE  BVTE; 

307 

2 

IF  TA3..E  >=  1  AND  TABLE 

<=  6  THEN 

CD 

O 

2 

00  CASE  TABLE; 

309 

3 

;  /*  ZEROTH  ENTRY 

IS  NULL  AND  AN  ERROR  V 

310 

l 

DO;  /*  IF  CALLED  TO 

HSKP  INCOMING  NET  CH  A  TA6.X 

311 

4 

NT01NS  =  NT01NS 

♦  FRAftlSIZE; 

Pu/M-ab  COMPILER  UN  ID  II  NETWORK  TEST  PROGRAM,  30  Sf'3  HA 
26b  2  END  DETSDF.STS-N; 

/**»* . ****** . ***** . * . * . * . **»• 

PROCEDURE  LDSTABSr.SKP  LOAD  TABLE  HOUSEKEEPING 

THE  PURPOSE  OE  THIS  PROCED'JRi.  IS  TO  HOUSEKEEP  A  SPECIFIED  TAKE  AFTER 
THE  LOADING  OF  A  PACKET  OR  A  FRAME • 

INPUT  THE  I N°u T  IS  AN  INTEGER  VALUE  INDICATING  THE  TABLE  REyDRING 

HOUSEKEEPING. 

PROCESSING  THE  PROCEDURE  DETERMINES  THE  TABLE  TO  BE  PROCESSED,  ADVANCES 
THE  NEXT  EFFTY  BYTE  POINTER  BY  A  PACKET  OR  FRAME  SiZE,  AND  ADJUSTS 
FOR  TABLE  WRAP  IF  NECESSARY. 

OUTPUT  THE  SPECIFIED  TABLE  HAS  ITS  NEXT  EMPTY  BYTE  POINTER  ADVANCED  BY 

THE  LENGTH  OF  A  PACKET  OR  A  FRAME. 

INTERFACE  THIS  PROCEDURE  IS  CALLED  BY  PROCEDURE  ROUTES  I N. 

NOTES  NONE. 

**ft  **  »  »ft ftft»***»«ftftftftftftftftft*ft»ftft**ft****ft*«*ft*  *« •  ftftfrftftV«ftft»frfrftftftftftftftft»+ft««ft  / 


267 

1 

LDSTABSHSKP: 

:  PROCEDURE (TABLE)  REENTRANT; 

263 

■1 

C 

DECLARE 

TABLE  BYTE; 

269 

2 

IF 

(TABL 

.E  >=  1  AND  TABLE  <=  6)  THEN 

270 

2 

DO 

CASE 

TABLE; 

271 

3 

t 

/*  ZERO  CASE  IS  NULL.  AND  IS  AN  ERROR  CASE  */ 

272 

3 

00; 

/*  HSKP  INCOMING  NET  CH  A  TABLE  V 

273 

4 

NT01NE  =  NT01NE  +  FRAMESSIZE; 

274 

4 

IF  NT01NE  NT01SZ  THEN  /*  IF  TAB-E  WRAP  »/ 

275 

4 

NT01NE  =  0; 

276 

4 

END; 

277 

5 

DO; 

/*  HSKP  INCOMING  NET  CHS  TABLE  */ 

273 

4 

NT02NE  =  NT02NE  +  FRAMESSIZE; 

279 

4 

IF  NT02NE  >=  NT02SZ  THEN  /*  |F  T ABI.E  WRAP  */ 

280 

4 

NT02NE  =  0; 

281 

4 

END; 

282 

3 

DO; 

/*  HSKP  OUTGOING  NET  CH  A  TABLE  */ 

283 

4 

TX01NE  =  TX01NE  +  FRAMESSIZE; 

284 

4 

IF  TXO 1 NL  >*  TXOISZ  THEN  /*  IF  TABLE  WRAP  */ 

235 

4 

TXOINE  =  0; 

286 

4 

END; 

28  7 

3 

DO; 

/*  HSKD  OUTGOING  NET  CH  B  TABLE  V 

208 

4 

TX02NE  =  TX02NE  +  FRAMESSIZE; 
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INTO  TIE  NETWORK. 

THE  PURPOSE  OF  THIS  PROCEDURE  IS  TO  DETERMINE  THE  OUTGOING  NETWORK 
CHANNEL  FOR  THE  PACKET  LOCATED  IN  TABLE  LCNTTB. 

INPUT  <  THE  I NaUT  IS  A  TWO  CHARACTER  ASCII  VALUE  INDICATING  THE  TABlE 
REQUIRING  EVALUATION'.  > 

PROCESSING  THIS  PROCEDURE  CALCULATES  THE  NUMBER  OF  HC^b  REQUIRED  TO  GO 
FROM  THIS  UN  10  TO  THE  DESTINATION  UN  10  BOTH  RIGHT  AND  LEFT. 

OUTPUT  THIS  PROCEDURE  RETURNS  'CA'  IF  THE  DISTANCE  IS  SHORTER  GOING  OUT 

THE  RIGHT  RING  AND  RETURNS  *CB'  IF  THE  DISTANCE  IS  SHORTER  GOING  OUT 
THE  LEFT  P'NG. 

INTERFACE  THIS  PROCEDURE  IS  CAlLED  BY  PROCEDURE  ROUTES  IN. 

NOTES  I.  THIS  PROCEDURE  IS  A  PRIMITIVE  ROUTING  ALGORITHM  THAT  JUST 
CALCULATES  THE  PATH  DISTANCE  BOTH  RIGHT  AND  LEFT. 

2.  THIS  PROCEDURE  DOES  NOT  TAKE  INTO  ACCOUNT  ANY  FLOW  CONTROL. 

*»*►#**#**« a-*****#****#*******#**-*#*******###**-#****** +#*#**■***#**##**»  / 


24  2  1 
24  3  2 


244  2 

245  2 

247  3 

248  3 

249  3 

250  3 

251  2 

252  3 

253  3 

254  3 

255  3 

256  2 

258  3 

259  3 

260  3 
26)  2 

262  3 

263  3 

264  3 

265  2 


0ET$0:.ST$LN :  PROCEDURE  WORD  REENTRANT ; 

DECLARE  DEST I  NAT  I ON$UN I  0  INTEGER, 

01  STANCEtLEFT  INTEGER, 

01 STANCEtRIGHT  INTEGER; 

Dl.'STINATIONJUNID  *  I  NT  (LCNTTB  (LCNTNS )  AND  OH/; 

IF  0£  3  T I  NAT  I  ON I  UN  I D  >=  I  NT < TH I S$UN I DJNBR )  THEN  DO; 

CALL  SENDSEQ(«TPS34,  LENGTrit TPJ34) ); 

D I STANCE$LE-T  =  OEST I  NAT IONSUN ID  -  I  NT ( TH I S JUN ! OJNBR ) • 

D I STANCEtRIGHT  =  INT(TH I SJUN I DtNBR )  +  ( I  NT (MAXtNET  WORKSCOOE )  - 
DEST  I  NAT  IONSUN  ID  ■*  1); 

END; 

ELSE  DO; 

CALL  SENDSEQ(«TP$35,  LENGTH ( TPJ35 ) ) ; 

D I  STANCE IlEF  T  =  I  NT  ( TH  I S  JU\'  I  DJNBR )  + 

( I  NT (MAX  JNE  TWORKtOODE 1  -  DCST I NAT I ONS JN . 0  +1); 
DISTANCESRIGHT  =  DEST  INATION$UNIO  -  I  NT (  TH  I  SJ'JN  I  DtNBR ) ; 

END; 

IF  DISTANCEJLEFT  >=  D I  STANCE $R I  GUT  THIN  DO; 

CALL  Si:N'SSG(«T°S36,  LENGTH(  TPJ36) ) ; 

DESTINATION  =  ’CA* ; 

END; 

ELSE  DO; 

CALI  SENDSEQ ( #TPS3 7 ,  LENGTH( TPI3? ) ) ; 

DESTINATION  =  ’CEO; 

END; 

RETURN  DESTINATION; 


H 
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PROCEDURE  DET$Q£ST!7W0  DETERMINE  DEST  Or  INCOMING  FRAM.  FROM  CHANNEL  B 
THE  PURPOSE  OF  THIS  PROCEDURE  IS  TO  DETERMINE  THE  DESTINATION  QF  A 
SPECIFIED  INCOMING  FRAME  COMING  INTO  CHANN".^  A  (3). 

INPUT  THE  INPUT  IS  AN  INTEGER  VA^UE  INDICATING  THE  T ARE E  LOCATION 

OF  THE  FRAME  TO  BE  EVALUATED. 

PROCESSING  THIS  PROCEDURE  LOO-'.S  AT  THE  FIRST  BYTE  OF  THE  NETWORK  IN°UT 
TABLE  (NTOIRX)  SERVICING  CH  A  AND  DETHRONES  IF  THE  DATA  FRAME  IS 
DESTINED  FOR  THIS  PARTICULAR  UNID  OR  SO»C  OTHER  UNID.  Ir  IT  GOES  TO 
THIS  UNID,  THEN  '  N._',  IF  TO  SOME  OTHER  UNID.  THEN  'NN1. 

OJTPUT  THE  PROCEOURE  OUTPUTS  A  TWO  CHARACTER  ASCII  VALUE  INDICATING  THE 

TAB'-E  OR  CHANNEL  DESTINATION  Or  THE  FRAME  • 

INTERFACE  THIS  PROCEDURE  IS  CALLED  BY  PROCEDURE  ROUTE!  IN  FOR  IN,:'UT 
FRAMES. 

NOTES  1.  FOR  THIS  PROCEDURE,  S  FRAMES  DESTINED  FOR  THIS  UNIS  ARE  '  N_  ‘ . 

*##■**«»#»»***■#**********#**■*»#  «>•«**#/ 


218  1 


222  3 


230  1 


CETSDESTlONE :  PROCEDURE  WORD  REENTRANT; 

IF  (NTOIRX  (NT01NS)  AND  OFH)  =  THI S$UN I DSNBR  THEN  DO; 
CALL  SENDSEQ(«TP$30,  LENGTHCTPS30) ) ; 

DESTINATION  =  'NL'; 

END; 

ELSE  DO; 

CALL  SENDSE5(@TP$31 ,  LENGTH ( TP$ 31 )) ; 

DESTINATION  =  'NN'; 

END; 

RETURN  DESTINATION; 

END  DETlDESTiONE; 

DETSDESTSTWD:  PROCEDURE  WORD  REENTRANT; 

I ~  (NT02RX  (NT02NS)  AMD  OFH)  =  TH I S$UN IDSNBR  THEN  DO; 
CALL  SENDSE0(@TP!32,  LENGTH! TP$32 ) ) ; 

DESTINATION  =  'If; 

END; 

ELSE  DO; 

CALL  SENDSEV l 9TP$33,  LENGTH (TP$33) ) ; 

DESTINATION  =  'NN'; 

END; 

RETURN  DESTINATION; 

END  DETSDESTSTWD; 


PROCEDURE  DET$,)I;!.Y$LN  DETERMINES  DESTINATION  OF  AN  OUTGOING  PAC'.E 


.V  \ 


H 
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THE  PURPOSE  Or  THIS  PROCEDURE  IS  TO  PRODUCE  A  TIME  DELAY  TO  BE  USED  BETWEEN 

i 

SUCCESSIVE  TRANSMISSIONS  OF  1  FRAMES  OUT  OF  OH  A  WHEN  A  VAl.IL) 

ACKNOWLEDGEMENT  HAS  NOT  BEEN  RECEIVED. 

1 NDJT  NONE. 

PROCESSING  -  THE  PROCEDURE  BEGINS  BY  CALLING  THE  (ASSEMBLY)  ROUTINE  STCTCE 

■ 

WHICH  INITIALIZES  AND  STARTS  THE  CTC  CHANNEL  «%.  EACH  TIME  THE  CTC  RUNS 

OUT,  ITS  INTERRUPT  ROUTINE  (TOUTCA)  INCREMENTS  THE  GLOBAL  VARIABLE 

1 CTCNOA 1 .  WHENEVER  THE  CTCMOA  VALUE  IS  GREATER  OR  EOUAL  TO  THE  GLOBA,. 

VARIABLE  'MAXNOA',  THE  GLOBAL  VARIABLE  ' T 1 MCHA'  IS  CHANGED  TO  TRJL . 

OUTPUT  -  THE  OUTPUT  IS  THE  VARIABLE  ' T 1 MCHA ' .  WHEN  TRJE  THE  TIME  DELAY 

a 

SEQUENCE  IS  COMPLETE- 

INTERFACE  -  THIS  PROCEDURE  IS  CALLED  BY  THE  PROCEDURE  ROJTEJOUT  LOCATED 

WITHIN  TH’S  SAME  MODULE.  THIS  PROCEDURE  CALLS  PROCEDURE  STCTCA  WHICH 

IS  LOCATED  IN  THIS  PROGRAM. 

r 

<9 

NOTES:  1.  SEE  PROCEDURE  STCTCA  FOR  AN  EXAMPLE  OF  CALCULATING  THE 

- 

APPROPRIATE  TIME  DELAY. 

- 

2.  VARIABLES  TOUTCA,  CTCNOA,  AND  MAXNOA  ALLOW  CHANNEL  A  TO  BE 

* 

INDEPENDENT  OF  CHANNEL  B  WHEN  CONSIDERING  TIME  DElAY  TO  AN 

ADJACENT  UN  ID. 

*************  ****************************************  ********************/ 

a  • 

198 

1 

T IMlIDELAYSCHA:  PROCEDURE  REENTRANT; 

199 

2 

IE  T 1 MCHA  =  TRUE  THEN 

► 

200 

2 

CALL  STCTCA;  /*  IF  TIBER  IS  NOT  RUNNING,  THEN  START  IT  V 

- 

ELSE 

201 

2 

CTCNOA  =  CTCNOA  +  I; 

V  *" 

L 

202 

2 

IF  CTCNOA  >=  MAXNOA  THEN  DO; 

204 

3 

T 1 MCHA  =  TRUE; 

208 

3 

CTCNOA  =  0; 

. 

206 

3 

END; 

*. 

207 

2 

END  T 1 MLtDELAYJCHA; 

• 

2C3 

1 

TIME$DELAY$CHE:  PROCEDURE  REENTRANT; 

209 

2 

IE  TIMCH3  =  TRUE  THEN 

210 

C 

CAll  STCT C6;  /*  IE  TIMER  IS  NOT  RUNNING,  THEN  START  IT  V 

ELSE 

21  1 

2 

CTCNOB  =  CTCNOB  ■»  1  ; 

• 

212 

2 

IF  CTCNOB  >=  MAXNDB  THEN  DO; 

214 

3 

TIMCHB  =  TRUE; 

'  . 

CTCN03  =  0; 

216 

3 

END; 

217 

2 

END  T 1  NESOELAYlCHB; 

.*  ,v‘( 

• 

»"  *  .  ‘ 

PROCEDURE  DET$DEST$ONE  DETERMINE  DEST  O'  INCOMING  FRAME  FROM  CHANNEL  A. 

H  -  1  4 
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177 

2 

END  ASCSHEX; 

178 

1 

VALIDSHEX:  PROCEDURE  (H )  BYTE; 

179 

2 

DECLARE  (H,  !  )  BYTE; 

180 

2 

DO  1  =  0  TO  LAST (ASCI  1 ); 

13, 

3 

1 c  H  =  ASCI  Id)  THEN 

182 

3 

RETURN  TRUE; 

183 

3 

END; 

184 

2 

RETURN  FALSE; 

185 

2 

END  VA.IDSHEX; 

/»»*»  *•*#*****••»  Utill  »**•*•*••*»»**•*»•#*•  »•»*»••*  * 

PROCSIVKF.  SENDSEQ  SENDS  DATA  TO  LOCAL  MONITOR  FOR  TESTING 

THIS  PROCEDURE  TAKES  A  MESSAGE  STRING  AND  OUTPUTS  IT  TO  THE 
SYSTEM  CONSOLE. 

**»*-<  <  ***»##*#**#**■*  *#*#***■*######***#**#*#»*  **##**#**»*###***  iitimiHi 

HU  1  SENOSEO:  PROCEDURE  (MSG,  TOTAL); 

187  2  DECLARE  MSG  POINTER; 

188  2  DECLARE  TOTAL  WORD; 

189  2  CALL  DQSWRITE  (WSCONN,  MSG,  TOTAL,  #STATUS>; 

190  2  CALL  ERR$CHK; 

191  2  END  SENDSEQ; 

*******  **  **##****##*»####***»*#*#*##**#***#***** *4  4  X  4  *******  *********** 

DUMMY  PROCEDURES  FOR  ACTIVATING  THE  HARDWARE  AND  SOFTWARE  TIMERS 
USED  IN  THE  T I  NESDELAYSCHA  AND  Tl  )€JDELAYSCH3  PROCEDURES. 

**##***##***#***#*»*#*#****###*****######*#***4**#x**#**#******##*******/ 


192 

1 

STCTCA:  PROCEDURE; 

193 

2 

TIMCHA  =  FALSE 

194 

2 

END  STCTCA; 

195 

1 

STCTCB:  PROCEDURE; 

196 

2 

TIMCHB  =  FALSE 

197 

2 

END  STCTCB; 

/**#** #*#*#*«###***#*4***#####*#*##*#***#**#####*####*##4**»  4  4**#***#*' 

PROCEDURE  TIMESDELAYSCHA  PRODUCES  A  DELAY  OF  TIME  FOR  CHANNEL  A 

TIMESDELAYSCHB  PRODUCES  A  DELAY  OF  TIM!  FOR  CHANNEL  B 
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1 45  2  NT01NE  =  0; 

146  2  NT01SZ  =  FRAMESTA3LESSIZE; 

147  2  NT02NS  =  0; 

143  2  NT02NE  =  0; 

149  2  NT02SZ  =  FRAMESTABLESSIZE; 

150  2  TX01NS  =  0; 

151  2  TX01NE  =  0; 

1  57  2  TX01SZ  =  FRAME  $  T  ABLE  S  SIZE; 

153  2  TX02NS  =  0; 

154  2  TX02NE  =  0; 

155  2  TX02SZ  =  FRAMESTABLESSIZE; 

156  2  LCNTNS  =  0; 

157  2  LCNTNE  =  0; 

156  2  LCN7SZ  =  PACKETSTABLESSIZE; 

159  2  NTLCNS  =  0; 

160  2  NTLCNE  =  0; 

16!  2  NTLCSZ  =  PACKETSTABLESSIZE; 

162  2  ENO  I N I TSNSTAB; 

/•#*#»»*«##»*#*»**#****##***»»»*****»»*»»♦»**#**#*»*»*»**»»*■»**»«#»#*»«»»» 
PROCEDURES  TO  CONVERT  HEX  TO  ASCII  FOR  USE  WITH  DISPLAYING  A  FRAME 
***»*■*» »***»*#»*****»*»*#*»»»»»»«***•*»*#*»»»■«***#**»********»  **»*»  »»***/ 


163 

1 

HEXSASC:  PROCEDURE (9)  WORD; 

164 

2 

DECLARE  B  BYTE; 

165 

2 

DECLARE  W  WORD; 

166 

2 

=  ASCI  1  (SHR(B,4)  AND  OFH 

167 

2 

W  =  R0L(W,8)  AND  OFFOOH; 

168 

2 

W  =  W  OR  ASCI  1 (S  AND  OFH); 

169 

2 

W  =  ROL (W, 8) ; 

170 

2 

RETURN  W; 

171 

2 

END  HEXSASC; 

172 

1 

ASCSHEX:  PROCEDURE <C'  WORD; 

173 

2 

DECLARE  C  BYTE; 

174 

2 

IF  C  <=  '9'  THEN 

175 

2 

RETURN  DOUBLE (C-30H); 

ELSE 


176  2 


RETURN  DOUBLE  (C-37H) ; 
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113  1  DECLARE  TP139C)  BYTE  DATA(CR,LF, 

'TP359  ACK  B  =  TRUE'  ) ; 

116  1  DECLARE  MS31  (•)  BYTE  DATA(CR,LE, 

'Do  you  want  tc  load  +ti*a  test  message? 

117  1  DECLARE  MSG2<*>  BYTE  DATA(CR,LC , 

'Do  you  want  to  stop  the  tes*?  'j; 

118  1  DECLARE  MSG3C)  BYTE  DATAlCR.LF, 

'How  man/  packets  to  load  (1-9)? 

119  1  DECLARE  MSG4(*)  BYTE  OATA(CR,LF, 

'Send  to  which  UN  ID  (1  or  3)7  '); 

/****»*»•*■*»***»»»***********«***•»»**♦»»«»  »»•*»♦*»*•»»*!►»»»*•»*  «  »»»»»»»»/ 

120  1  ERRSCHK:  PROCEDURE  PUBLIC; 

121  2  IE  STATUS  <>  0  THEN  /*  <>  0  IS  AN  ERROR  V 

122  2  DO; 

123  3  CALL  DQJDECODEiEXCEPT I  ON  (  STATUS,  «STATUS$PTR,  SSTATUS;; 

124  3  CALL  DQSWRITE  (WSCONN,  63TATUS$°TR ( 1 ) ,  STATJSJPTR ( 0) ,  SSTATUS) 

125  3  CALL  DQJWP.ITE  (WtCONN,  8CRLF ,  2,  SSTATUS >; 

126  3  CALL  DQ$EX I T  (0); 

127  3  END; 

1 28  2  END  ERRSCHk; 

/*»****»*******»*»«*»****»******»#»*•*»***»**»»«•*******#*****#*»*»*»*»«* / 

129  1  I N I TJNITAS:  PROCEDURE; 

/*  VARIABLES  FOR  NETWORK  CHANNEL  A  */ 

13C  2  SEQSS I T$A  =  FALSE;  /"  MOD  2  SEQUENCE  BIT  V 

/*  VARIABLES  FOR  NETWORK  CHANNEL  B  V 
131  2  SEQJBITSS  =  FALSE;  /*  MOD  2  SEQUENCE  BIT  */ 


/*  VARIABLES 

FOR  BOTH  NETWORK 

CHANNELS  V 

132 

2 

INPJTJSEQSBITSA  = 

F  AL  3E ; 

/*  SEQ  BIT  GOING  INTO  FRAME 

V 

133 

2 

INPUT$S£Q$BI  T$B  = 

FALSE; 

/*  SEQ  BIT  GOING  INTO  FRAME 

V 

134 

2 

THI SiSEQSBl T$A  = 

FALSE; 

/*  CURRENT  SEQUENCE  BIT  V 

135 

2 

THISISEQSBITJB  = 

FALSE; 

/*  CURRENT  SEQUENCE  BIT  */ 

136 

2 

TIMCHA  =  TRUE; 

/*  FLAG 

FOR  CH  A  WAIT  LOO-^  V 

137 

2 

TIMCHB  =  TRUE; 

/*  FLAG 

FOR  CH  B  WAIT  LOOP  V 

1  33 

2 

CTCNOA  =  0; 

139 

2 

CTCNOB  =  0; 

140 

2 

FOREVER  =  TRUE; 

/*  FLAG  FOR  MAIN  LOAF  V 

141 

n 

MSGNJM  -  0; 

142 

2 

RETRANS3 A  =  0; 

143 

2 

RETRANSJB  =  0; 

PL/M-86  COM^ILFK 
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•TP $36 

DECT  1 N  AT  ION  IS  CH  ANNFl  A '  )  ; 

I 

91  1 

DECLARE 

TtJ$37(*  )  BYTE  D AT  A l CR , L  F , 

.  - 

* TP$ 37 

DESTINATION  IS  CHANNEL  &'); 

92  1 

DECLARE 

TPS38(* )  BYTE  DATA(CK,LF. 

-  ' 

•  TP$  38 

BUILD  INC  1  FRAME  PO-I  CHANNEL  A'); 

93  1 

DECLARE 

TP$39( * )  BYTE  DATA(CR,LF, 

jm 

•TP$39 

BUILDING  1  FRAME  FOR  CHANNEL  B'); 

m 

94  1 

DECLARE 

TP140C*  )  BYTE  DATA (CR ,LF . 

' TDS40 

B'JILD  INC  S  FRAME  FOR  CHANNEL  A'); 

?T  1 

DECLARE 

TPS4 1  ( *  )  BYTE  JATA(CR,LF, 

'TPS41 

3U 1 LD 1  MG  S  FRAME  FOR  CHANNEL  B 1 ) ; 

96  1 

DECLARE 

TPS42 < * )  BYTE  DATA(CR,LF, 

r. 

•TP$<2 

ENTERING  ROJTESOuT  PROCEDURE'); 

*< 

97  1 

DECLARE 

TP$43( *1  BYTE  DATACCR.LF, 

• TPS43 

END  OF  ROUTES  IN  -  ROUTESDUT  ./DDR'I; 

98  1 

DECLARE 

T3$44 ( * )  BYTE  DATA(CR,LF, 

• TP$  44 

HAVE  EXITED  ROJTE$  IN  -  RO'JTESOU'  LO>",CR,LF) 

99  1 

DEC.  ARE 

TPS45C)  BYTE  DATA(CR,LF, 

•TPS45 

DATA  IS  NT01RX  TO  NTLCTB  TRANSFER'); 

• 

100  1 

DECLARE 

TP$46(*)  BYTE  DATA(CR,LF, 

• TPS46 

DATA  IS  NT02RX  TO  NTlCTB  TRANSFER'); 

101  1 

DECLARE 

TP$47 ( * )  BYTE  DATA(CR,LF, 

•TPS47 

ERROR:  UNID  DESIGNATION  >  MAXlNETWOR*.$COD£  '  > ; 

102  1 

DECLARE 

TP$43;*)  BYTE  DATA(CR,LF, 

89 

•TP$48 

ERROR:  UNID  DESIGNATION  >  MAXSNETWORKSCODE ' > ; 

103  1 

DECLARE 

TP$49( * )  BYTE  DATACCR.LF, 

•TP$49 

1 N°UT  SEOSBITSA  =  1 ’); 

1  1 

104  1 

DECLARE 

TP$50< * )  BYTE  DATA(CR,LF, 

9 

•TP$50 

INPUT  SE0$BIT$A  =0'); 

9  1 

105  1 

DECLARE 

TP$51 (* )  BYTE  DATA(CR,LF, 

P| 

' Tp$51 

IN°UT  SEg$3IT$B  =  1 '); 

100  1 

DECLARE 

TP$52(*)  BYTE  DATA(CR,LF, 

' TPS52 

INPUT  SEQ$BI T$B  =0'); 

1  07  1 

DECLARE 

TPS53A(*>  BYTE  DATA(CR,LF, 

; 

•TPS53A 

GENERATING  1  FRAME  BACK  TO  SENDER'); 

108  1 

DECLARE 

TPS53B<*>  BYTE  D4TA(CR,LF, 

• 

' T°S53B 

S  FRAME  IN  NETWORK  AND  DISCARDED'); 

109  1 

DECLARE 

TP$53C (* )  BYTE  DATA(CR,LF, 

'TPS53C 

GENERATING  S  FRAME  BACK  TO  SENDER'); 

110  1 

DECLARE 

TPS 54 ( * )  BYTE  DATA(CR,LF, 

•TP$54 

LOADED  TES1  PACKET  IN  LCNTTB’); 

111  1 

DECLARE 

TPS55 ( * )  BYTE  DATA (CR,LF , 

• 

' TPS55 

READING  NTLCTB  PACKET  TO  CONOUT'); 

112  1 

DECLARE 

TPS5fc(*>  BYTE  DATA(CR,LF, 

' TP $56 

RETRANSSA  >=  10;  DUMPED  FRAME'); 

113  1 

DECLARE 

TPS57C*  )  BYTE  DAT  A (CR,LFf 

' TP$57 

RETRANSSB  >=  10;  DUMPED  FRAME'); 

• 

114  1 

DECLARE 

TPS 59 ( * )  BYTE  DATA(CR,LF, 

' TPS  59 

ACK  A  =  TRUE'); 

!  0 


H 


FL/M-bb  COMPILER 


UMu  II  IlufW'JRN  TEST  Pf;OC.I<A,t,  10  SEP  84 


433 

2 

Uv)  ,6V1l  lAfiLE; 

■i  yj 

3 

;  /*  ZEivD  IS  NULL  OAoL  V 

440 

5 

DO; 

441 

•1 

IF  ( <4X01  Ml  -  4X0  INS)  >-  FR  AI4E  1 S 1  /L  )  of: 
(TAOINS  >  TXOINE)  THEN  DO; 

44 

') 

DO  INDEX  -  0  10  (FNAMEijIZE  -  1); 

444 

6 

ADlIK(  INltX)  -  N  4014X1  T  <01 f  INDEX); 

44b 

6 

END; 

44u 

5 

II  <AD01<VOI<I oIN  ►  1)  AND  80tl)  -  DON  THEN  DO; 

/*  DU11J  THE  ACK  FRAME  */ 

440 

6 

CALL  SLNDSLyvSlPlSjli,  LLNSIVK  TPlS3(3) ) 

449 

6 

lND; 

4  >0 

5 

ELSE  DO; 

4  SI 

ij 

IF  (AUDRfUvIOlN  v  1)  AND  20tl)  ^  20H  T<|LN  /*  SL  4  1  HE  SLy  HIT 

iso 

6 

INPlSLyiblT  -  TRUE; 

4S  5 

o 

ELSE  INPIslOUIT  FALSE; 

464 

li 

CALL  LU 1  LDtl.  StEKAME  ( 1 ,  INPlSEQtlll  T> ; 

46  j 

6 

CALL  SENDSnOCilPlsOC,  LCNGTiK TPlsiC) ) 

4  SO 

0 

CALL  :,ENDSEy<«rPl6  5A,  1  I.Nv'iTHt  IP$:>3A) ) 

46/ 

o 

NTOIRX(NIOINL)  -  KOL ( ADDK (ORIGIN),  4) 

/*  SWAP  FRAME  HEADER 

4 ')  < 

6 

N  40 1  KX  (NTOI NE  f  1)  -  ADDK  (OH  1 0 1  N  +  1) 

:•>) 

6 

M  0 1 KX  ( N  TO  1  NE  +  2)  ^  ADDR (ORIGIN  +  3) 

/*  SWAP  PACKET  HEADER 

46o 

(j 

N4D i ftX(NK)  1  IE  +  3)  -  AlJ JT< (ORIGIN  +  2) 

ini 

6 

1)0  INDEX  -  4  TO  (F,<A4E1SI..’L  -  1); 

/*  SWAP  DATA  */ 

4v,2 

1 

NTOI RAIN  101 NE  )  INDEX)  =  AOdKiOR 101 N  +  INDEX); 

4o> 

i 

LI.D; 

-in  4 

o 

DO  INDEX  =  0  TO  3;  /*  SWAP  IP  DlST  4  SOURCE  V 

■Ir/j 

/ 

N  fOI  H  <  (N  1 01  NE  +  INDEX  +  19)  ^  ADDR  (OR  1 01 N  +  INDEX  *■  23); 

4cO 

7 

N  TO  1  I<x  (  N  r  )INE  I-  INDEX  +  23)  »  ADDR(OKIO|N  +  INDEX  f  19); 

40/ 

1 

END, 

loa 

fj 

call  ld$  4ab1hsap(  l  ); 

4i>9 

u 

END; 

.  /.) 

*> 

END; 

4/1 

4 

END;  /*  CASE  -=  1  */ 

4/2 

5 

DO; 

4  >i 

4 

IF  ( (  f  XD.-’NE  -  TXU2NS)  >-  FRAME  IS  1  ZE  )  OR 

( T  X02NS  >  4<02Nt)  THI  N  DO; 

4  /6 

■; 

DO  INDEX  =  0  TO  (FRAME $S 1  CL  -  1); 

4/n 

U 

AuDRl INDEX)  =  NT02  TX(TX02NS  ►  INOLX); 

4  7/ 

D 

LND; 

4  7 II 

IF  (ADDRIORIOIN  *•  1)  AND  8o.f)  ^  80H  I HLN  DO; 

/*  UU.4P  4 ML  ACK  FK.AME  V 

430 

o 

CALL  SENDSLsN  J4P$66d,  LENGIiK  TPi 630 ) )  ; 

431 

o 

r  NL'; 

4:1. 

*3 

ELSE  00; 

II  - 
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43  3 

6 

IE  (ADDR( ORIGIN  +  n  AND  20H)  -  20H  THEN 

/*  st:  r  the  sro  p  i  r  » / 

434 

6 

INPJSEOJRi  r  TRUE; 

483 

6 

ELSE  INPSSEQSUIT  =  TALSE; 

406 

(i 

CAl.t  RU 1  LDtLSSFR  Af4E  < 2 ,  INPtSEQJRI  T) ; 

437 

6 

CALL  SENDSEO<0TPt53C,  LENGTH!  lPSr-TC) ) 

438 

r, 

CALL  5ENDSEQ ( * TP$5 3 A ,  LENGTH (  TPS5  5A)  > 

43° 

6 

Nr02RX(NTO2NE)  =  ROL  (ADDR(9R  1C  1  1 ) ,  4) 

/* 

SWAP  rRAME  HEADER  V 

400 

6 

NT07RX(NT02HE  +  1 )  -  ADDR (ORIGIN  +  1) 

491 

6 

NT02RX(N  T02NE  +  2)  =  ADDR  (OR  1(5  IN  5  5) 

/* 

SWAP  PACKET  HEADER  V 

492 

6 

NT0XRX(NT02NL  +  3)  -  ADDR  (Of!  1  Gl  N  +  2) 

493 

6 

00  INDEX  =  4  TO  (rRAME*SI2C  -  1  ' ; 

/  a 

SWAP  DATA  V 

404 

7 

M 0)2' !  . ( NT02NE  E  INDEX)  -  ADDR ( OR  1  r  I N  + 

INDEX) ; 

4  A3 

7 

END; 

496 

6 

00  INDEX  -  0  TO  3;  /*  SWAP 

IP  OEST  \  SOUR  */ 

4°7 

7 

NT02RX(NT02NE  +  INDEX  +  19)  -  AOOR (ORIGIN  *  INDEX  +  23); 

4'»i 

7 

N f 02RX ( NT02ME  E  INDEX  +  24)  =  AOORfOH! 

GIN  ‘  INDEX  ‘  |0) ; 

409 

7 

END; 

300 

6 

CALL  LD$TAP.$HGXP(  2  >; 

SOI 

6 

END; 

5C? 

5 

END; 

503 

4 

END;  /*  CASE  -  2  V 

504 

-r 

END;  /•*  CASE  EARLE  V 

•■05 

2 

END 

SERV  ICEtl.OOF; 

506 

1 

SERVIX  T <MIT{A:  PROCEDURE; 

507 

2 

CALL  SERV 1 C+ t LOOP (1 ); 

8tl3 

; 

END 

SERV 1 CES  XM 1 T  T A ; 

500 

j 

SEPVICEJXWITJ  i;  PROCEDURE ; 

510 

? 

CALL  SERVICES!  00P( 2); 

51  1 

2 

-  Ml? 

SERV 1 CESxwi TSn; 

/.....Ml...., . . 

PROCEDURE  LOAM  A’ll)  REA'S  TAB 

these  procedures  ami:  used  to  pjt  a  message  info  mv.  lcnttr  talle  am-' 
write  ro  the  cm  a  message  in  the  mti.c t”  tapi." . 

***#**»**»»******»*¥"<  ''C'*»»****«'l*»*''*****»1*»****»*»*»H*’**»',<***»<l’l*»* 

SI  ?  I  I  OAD:  PROCEDURE <DE STS  JNID); 


SI  3  ?  DECLARE  INDEX  INTEGER; 

rM  2  DEC..  APE  DCS  TV.  IN  ID  WORD; 

> p>  DO  INDEX  -  0  TO  (PACKETSSI.T  -  I); 

'•■id  3  i  cm rrnn.cN roc  +  mv.*)  = 


M  -  23 
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>1  /  3 

b  i ;)  / 


END; 

/*  PACKET  HEADER  */ 

LOU  I  TlULCNTNL )  *  ILOW(uESIiUNID)  AND  OfH)  UR  I  Jll; 

/*  DtST  =  1  ,  CH  I  V 


-J 1  ■) 

2 

i  cornu.  cm  me  +  n  - 

-  ( THIS*  iNlDiNGK  AND  OrH)  OR  10H; 

/*  SOKC  -  i,  CH  -  1  V 

/*  IP  SOOKOC  tiCAiJui  V 

S/0 

2 

LCNI  IIKLCNTNL  4  i-» 

-  ioh;  /*  cr  -  0,  CC  -  1 

V 

s  -1 

2 

LON  I  T ij( LON  I  NI:  r  /O) 

-  (1 H 1  SiUN I D$N13R  AND  DM3)  OK  bOH; 

/*  NO  ■=  5,  HC(L)  -  b  * 

/ 

s/C 

> 

L  ON  1  iBILCNiNL  +  /I  ) 

-  /OH;  /*  HC(H)  ^  0,  PC(O)  =  / 

V 

S.’S 

2 

I.CN1  VtS (LCNTUl  4  22) 

=  OGri;  /*  PC(1 )  -  0,  PC12)  -  0 

V 

/*  IP  DOS lINnl  1 0.4  HEADER 

V 

S/4 

y 

LCNI  H3(LLN  ME  4  /!) 

-  ION;  /*  or  =  0,  CC  -  1 

V 

*>  •! '» 

LO.il  113  (LCNI  NC  +  /4) 

=  (LOW (OPST'IUN  1 D )  AND  OPil)  OK  60H; 

/»  NC  =  1,  HC(L>  -  6 

•/ 

‘‘  2  Cl 

2 

LCN  i'l  t3  (ECNTNL  +  /S) 

-  70H;  /•  HGIH)  =  0,  PC(O)  -  7 

V 

3// 

2 

LCNI  1.3 U. ON INl  ♦  / 0) 

-  OOii;  ./*  PC(I  )  =  0,  PC (2)  =  0 

V 

S/b 

■> 

CAi.L  HDVtJvdMEsbACE, 

«  cnttdu.cnvne  ♦  on,  tcpjdaiajsize) 

A 

S/o 

<4 

IP  MSuNUM  >  9  THLN 

S'.o 

2 

MSGNUM  -  0; 

S  SI 

2 

LCNTIDIL  :.T  INc  4  9|) 

-  'O’  +  MSGNUM; 

2 

MSGNUM  -  MSGNUM  4  1 ; 

S  S3 

j 

CALL  LDSrAUSNS.-.Pl.S); 

•i  >4 

.* 

SAIL  SLllL)Stv(«<rP$s4, 

I.LnSI'H(IP$S4))  ; 

■J  J  > 

2 

L NO  LOAD; 

S  io  I 


KLADi TAB:  PROCEDURE; 


•>>/  2  IP  ( (  NTlCNL  -  MILCNS)  >»  PACKERS  I /El  OK  (NILCNb  >  NTLCNE)  MEN  DO 

S'.  I  '5  OAl  L  SENDSEOOiTPJsb,  LENGTH  (Mibb)); 

•>40  3  CALL  SKNOSl  yt*NI  LCT«  ( NTLCNS  4  ol),  TCPiDAI  AJS  I  ZE ) ; 

bll  3  OAuL  CKVCirA.ilHSKPCj) ; 

b  4  i  5  END; 

3-1  i  /  L  NO  READ*  I  Ail; 


-44 


procedure  p i nci i pkamp  Pinos  ml  pirsi  i  praml  im  thi.  uroirx,  nto/ix  table 

me  purpose  op  mis  prgcldure  is  io  i  no  thc  first  i  frame  n  the 
iiroux,  nto/tx  uhles  and  return  a  true  hmjilan  value  ip  there 
is  AO  i  i  in  ml  selected  iadle. 

P  MDJ  I  KUAMl :  PROCEDURE  (  IAKLI  )  HY  IT  ; 


DECLARE  ilA4L,i, 

i  UAML$  THERE  , 


II 


i'L/  M 

-Uo  COMRlI.ER 

UNIu  II  IJ.UOrtK  TEST  PHUGKA.4,  iO  SEP  B4 

MAVoti.  name)  Li r  i £ ; 

b4o 

DECLARE  INDEX  INIEGER; 

b4  i 

; 

HvAlt  il.lL.Uo  -  TRUE ; 

b4Fj 

2 

HAVE i 1  FRAME  ^  FALSE; 

b  4U 

INDEX  -=  0; 

■nu 

Du  CAbL  TAbLE; 

bbl 

i 

;  /*  ZERO  13  NULL  */ 

S‘.2 

A 

DO; 

b  i>  3 

4 

DU  WrIILL  t'KAMoi THERE; 

bb4 

b 

IF  ( (TX01NE  -  TX01NS  -  INDEX)  >-i  FRAMESSIZE)  OR 
( ( TX01NS  (■  INDEX)  >  TXOINE)  THEN  DO; 

bbu 

6 

IF  TNT01 TXTTXOINS  +  INDEX  <■  1)  AND  BOH)  =  OH 

THEN  DO;  /*  M-.7E  AN  INFORMATION  FRAME 

:by 

7 

HAVE $1 THAME  =  TRUE; 

bbb 

7 

FRAMEiTHEliE  -=  FALSE; 

boU 

7 

END; 

ELSE 

bt>l 

6 

HAVEi i frame  =  false;  /*  have  an  s  fkaml  */ 

bUZ 

6 

END; 

boi 

b 

EL  Si  DO; 

bo  1 

6 

HAVES  F  RAME  =  FA1.SL; 

bob 

6 

FKAMLt THi.Ri..  -  i  ALSE; 

b6o 

0 

END; 

b  hi 

b 

INDEX  =  INDEX  +  FRAMESSIZE; 

boy 

b 

END;  /*  DO  WHILE  FRAMEJ THERE  */ 

bob 

4 

LNu;  /*  CASE  TABLE  =  1  V 

b/0 

3 

•  )0; 

b  / 1 

4 

DO  WHILE  FKAM.il HERE; 

b/2 

b 

IF  ( (  TmjZNL  -  TUIZNS  -  INDEX)  >-  1 KAHEiS 1 ZE )  OR 
l ( 1 XUZNS  +  1 NDEX )  >  TXOlNE /  THEN  DO; 

b/4 

0 

II  UIO.'IXI  UUZNS  +  INDEX  +  1)  AND  80H)  -  OH 

THIN  DO;  /»  HAVE  AN  INFORMATION  FRAME  1 

b  /o 

7 

HAVEi 1  FRAME  -  TRUE; 

b  // 

7 

FRAME!  THERE  -  FALSE; 

b/d 

7 

END, 

ll 

•)/  > 

o 

IIAVlI  IFKAI4  -  FALSE;  /*  HAVE  AN  S  FRAME  V 

SUo 

o 

iLNU; 

bai 

b 

ELSE  DO; 

ij 

iIAVlJIIRAML  -  FALSE; 

■  ■)  5 

o 

i  RAH-iTHLRE  ^  FALSE; 

bd't 

0 

FIJI); 

H  - 


7 
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sas 

5 

INOtX  -  INJCX  *  ERAMEiSI EE; 

S8u 

') 

END;  /*  DO  WHILE  FRAMl*  THERE 

SJ  / 

4 

END;  /*  CASE  TATTLE  =  2  V 

baa 

EMU;  /*  CASE  IA;iLE  */ 

bao 

> 

RETURN  l lAVEt  1  FRAME ; 

‘>00 

2 

LNO  F  1  N0$  1  h<AM- ; 

/*.* .t.» . . . »»»•»< ****.»«»»» . . **•* 

pr<.>a.uui{,.  service  resets  transmit  i  frame  flags  and  hunters 

1  he  PURPOSl  UK  1HIS  PROCEDURE  IS  TO  RESET  THE  TRAN SMI T  I  FRAME 


f LAOS  AND  COURIERS  AND  CALL  THE 

APPROPRIATE 

SRVCtTABtHSKP 

bVI 

1 

IN  1 1 ACK :  PROCEDURE  I  TABLE ) ; 

"  W  W  w  WWW  w  W  W  W  1 

2 

DECT  ArtE  TABLE  ,tf  TE; 

;4‘, 

> 

IF  ( [ABLE  J)  AND  (TABLE  <=  4) 

THEN  DO; 

b-<‘> 

i 

CALL  SR VCt TAJtHSKP ( TABLE t ; 

bb'.i 

J 

i;0  CAsE  TABLE; 

SO  / 

4 

;  /*  CEKOl'H  lNTRY 

IS  NULL  AND 

AN 

ERROR 

V 

b'Jd 

4 

;  /*  FIRST  ENTRY 

IS  NULL  AND 

AN 

ERROR 

V 

‘./JO 

4 

;  /*  SECOND  ENTRY 

IS  NULL  AND 

AN 

ERROR 

V 

BOG 

4 

c 

c 

oOI 

o 

TIMCHA  -  TRUE; 

CTCNOA  -  0; 

■  o ; 

1 1 

RE  IRANStA  -  0; 

604 

END; 

oub 

4 

DO; 

tOu 

!> 

TlMGlIU  -=  TRUE; 

60/ 

O'lYJNOU  -  0; 

t.oa 

S 

RlTRANSJH  -  0; 

1,00 

!) 

EMU; 

ol  0 

4 

.CU;  /*  END  CASE  */ 

o  1  i 

5 

lNd;  /*  END  IF  V 

til . 

CiUJ  INI  IcOA; 

PkOCLDURL  KOU I  ^  *  III  IOUTls  PACKETS  I  I  E.*iW  EITHER  CHAN  A  OR  OMAN  8 

HE.  EURCOul  ;»■  THIS  PR'Ji.T  OllriL  IS  TO  ROUTE  PACKETS  FROM  TIC  NETWORK 
INPUT  TAIiLLS  10  f.li  IR  O/RRtCr  OUlPUT  TABLE.  iT  INI  HATES  THE  BUILDING  OF  AN 
S  i  NAME  FOR  ACKNuWEl.U  i.  '■%  •Nr  *  0000  I  FRAMES.  IT  ALSO  INSURES  THE  PROPER 


-  .’9 


II 
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„ 

> 


u 


s  *• 

* 


SEQUENCING  OF  r  RAMLS  Sir  Till  USE  01  MODULO  2  NUMBER  I  No  SCHEME. 

I  NPU  f 

L1A1A  PACKETS  OR  FRAMES  ARE  ROUTED  VIA  EVALUATION  OF  NlJlRX  AND  NTOJRK 
POINTERS  ANO  FRAME  HEADER  ROUTING  INFORMATION. 


PROCESSING 

THE  PUOCi.DJKt  CHECKS  NT01KX  AND  NTU2RX  POINTERS  FOR  FRAME  ARRIVAL.  IT 
THEN  DtlERMlICS  IF  THE  FRAME  IS  DESTINED  FOR  THIS  UNID  OR  ANOTHER  UIIIO.  IF 
I  OR  ANOTHER  UNID,  THE  i  ROClDUKE  SIMPLY  ROUTES  IT  BACK  TO  IKE  NETWORK.  IF 
THE  INCOMING  FRAME  WAS  ON  CHAN  A,  THEN  IT  IS  SUBSEOUENTLY  TRANSMITTED  OUT 
SHAN  B.  IE  THE  INCOMING  FRAME  WAS  ON  ChAN  0,  THEN  IT  IS  ROUTED  OUT  CHAN  A. 
THIS  WILL  CREATE  A  DUAL  RING  ON  THE  NETWORK  SIDE  01  THE  UNIDS.  ONE 
DIRECTION  THL  FRAMLS  MoVT.  CLOCKWISE  AND  THE  OTHER  COUNTER  CLOCKWISE. 

IF  THE  INCOMING  FRAME  IS  DESTINED  FOR  THIS  PARTICULAR  UNID,  THEN  IT 
DETERMINES  THE  TYPE  OF  FRAME.  IF  IT  IS  AN  I  F  <AME,  THEN  IT  CALLS  THE 
BU  iLOtSiEKAME  PROCEDURE  TO  PROVIDE  A  POSITIVE  ACKNOWLEDGEMENT  AND  THEN  MOVES 
THE  FRAME  TO  THE  NETWORK  TO  LOCAL  TABLE  MINUS  THE  FRAME  HEADER.  IF  IT  I S  AN 

s  frame,  men  it  tests  to  see  if  it  is  an  acknowledgement  for  its  last 

TRANSMIT  I  tl>  I  FRAME.  THIS  PROCEDURE  USES  PROCEDURE  DLTiut  SHONE  AND 
OtTiOEsfil  WO  TO  DE  TERMINE  DESTINATION  AND  THE  MOVU  PROCEDURE  TO  MOVE  THE 
FRANK  BETWEEN  TABLES. 

GUI  PUT 

mis  procedure  produces  two  outputs,  the  first  is  a  frame  from  the 

NL T WORK  SIDE  DESTINED  FOR  ONE  Of  THE  OUTGOING  LOCAL  CHANNELS.  THE  SECOND 
OUTPUT  IS  A  FRAME  FKu -1  THE  NETWORK  DESTINED  FOR  ANOTHER  UNID  LOCATED  ON  THE 
HE  TwORK. 


I N I  ERF  ACE 

THIS  PRoCtDUKi:  IS  CALLED  IN  AN  ENDLESS  LOOP  BY  PROCEDURE  MAIN. 


til  3 


NOUS:  NONE. 


RoUTESIN:  PROCEDURE  R.-.EN1KANT; 


/ 


o  1 4  2 


o  I  o  ') 

e!  /  3 

Ci  1  >  1 

USD  4 

uJJ  S 
C23  S 
fc.24 

oJu  o 
C  U  b 

c  JO  u 

6  JO  6 


IF  ((N.UINE  -  NTOIRs)  IRAMEJSI.TE)  OR  (NTOINS  >  N  TO  I NE )  THEN  DO; 

/*  SERVICE  Cl I/V4  A  V 
u ale  sendseoiwtpjs,  EENGTHT IP$5 ) ) ; 

IF  (N TO  1 RX  (NTUINS+1 )  AND  OUOH)  -  OBOH  THEN  DO; 

/*  HAVE  AN  S  FRAME  V 
CALL  SLNDsLQ(0TP$d,  LENG  TH(TPJU) ) ; 

IF  ( NTDIRX  INTOINSH)  AND  020H)  -•  020H  THEN  DO; 

/*  CHECKS  SEQUENCE  BIT  V 
CALL  SFNOSEQI tf  TPS9,  LENGTH ( TP$9) ) ; 

TH I  SlSEQJBI  TtA  TRUE; 

IF  TH I SSSEQJBI T$A  =  SEQiBI T$A  I  HEN  DO; 

SEQiBI T$A  -  NOT  SEQiB I TtA; 

CALL  I N I  TACK  <  3 ) ; 

CALL  SENDsEQTWTPisu,  LENG TH ( TP$S8 ) ) ; 

LND; 


II  -  2D 
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630 

bJl  4 

632  S 
655  3 

b34  5 

b  56  6 
6  57  6 
b3o  6 
6  J'J  6 
b40  3 

641  4 


END; 

£L St  DO; 

CALL  SEN0SCQ(«IP*10,  LENGTH! TP* 10) ) ; 

Till  SJSEQiBI  TSA  =  FALSE; 

IF  TH I SiSEOJUl I tA  -  SLOiBIlSA  THEN  DO; 
SEQJ9I 1$A  -  NOT  SEOibl T$A; 

CALL  IN  I  TACK l J) ; 

CALL  SENOSE0!#TP*5G,  LENGTH (TP*58) ) ; 

END; 

END;  /*  END  IF  XX  -  20H  V 
END;  /*  END  IF  XX  =  80H  V 


o42 


ELSE  DO; 


/*  HAVE  AN  I  FRAME  V 


b4J  4 

644  4 

645  4 

b4  7  5 

b49  6 

630  o 
til  6 

652  5 
bSJ  6 
b34  b 

653  6 
bSo  3 

63 1  > 

b38  5 

630  3 

660  3 


CALL  SENDSEQ(«TP$I 1,  LENGTH! TP* 1 1 ) ); 

DESTINATION  -  D£T*DEST*ONE; 

IF  DESTINATION  =  'NN*  THEN  DO; 

/*  FRANC  DESTINED  FOR  ANOTHER  UN  ID  V 
IF  (NTOIRX  (NT01NSP1)  AND  02010  =  020H  THEN  DO; 
CALL  SENDSEQ(0TP*49,  LENGTH (TP*49) ) ; 
INPUT$SEQ$UIUA  ^  TRUE;  /*  SEOibITJA  =  1 

END; 

ELSE  DO; 

CALL  SENDSEO ( BTP* 50 ,  LENGIH! TP*50) ) ; 

I NPUT$SE0*3 I T*A  =  FALSE;  /*  SEO$BIT$A 

END; 

CALL  Bl!  ILOiSlFRAME  ( I  ,  I NPUT* GE0S3 1  TJA) ; 

CALL  SENOSEQla TPJ6,  LENGTHITPJ6) >; 

CAl.1.  MOVtU  0NTOIRX  (N  TO  I  NS),  8NT02TX  (  TX02NE  ) , 
FkAMLTS I 

CALL  LD* lAUSHSKP  (4); 
tND;  /»  IF  OEST  =  'Nil'  V 


6o  I  4 

bo  J  3 

bo  I  5 

bbb  o 
66  7  6 

obb  6 
til  >')  3 

b/0  6 

67!  6 

b72  6 

6  7  J  3 

o  74  3 

6  75  5 

O  /  b  3 

6/7  5 


IF  DESTINATION  ^  'NL'  THEN  DO; 

/*  FRAME  DESTINED  FOR  THIS  UN  ID  V 
CALL  SLNUSaUfTP*7,  LENGTH!  TP$7 )) ; 

IF  (NTOIRX  (NT01NSTI)  AND  020H)  =  020H  THEN  DO; 
CALL  SENDSE0!»TP$!2,  LENGTH (TP$1 2) ) ; 
lill'IHiStGlDITtA  ^  TRUL; 

END; 

ELSE  DO; 

CALL  SENO.3EQ(0IP$1  J,  LENGTH!  TP$I  3) ) ; 

I  NPUT  *  SEC'SBI  I  *A  ^  FALSE; 

END; 

CALL  UU I LOtSiFKAMF  (1,  I NPU  TtSEOJU I T$A) ; 

CALL  SENDSEO (BlP*45,  LENGTH! TPS45) ) ; 

CALL  MOVB!  BNTOTRX  (NT01NS+2/,  BNTLCTD  ( NTLCNE ) , 

PACKETSSI ZE ) ; 

CALL  LOJTAbtHSKP  (3);  /*  HSKP  ’ NL •  V 

END;  /*  END  OF  DESI  -=  ’NL’  CONDITION  V 
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u79  3  CALL  SRVCiTAbiHSKP  (1); 

biiO  3  END;  /*  END  OF  IF  (NTUlNL  -  NT01NS)  CONDITION  */ 


odl  2 

063  3 

b84  3 

086  4 

667  4 

669  5 

690  6 

691  3 

693  o 

694  6 

69‘J  6 

696  o 
o97  5 

69a  4 

699  6 

700  6 

/Ol  6 
70  J  6 
704  6 

706  o 
706  6 

70  7  6 

706  4 


IF  ( (NT02NE  -  NI02NS)  >-  FRAFlLiSIZt)  OR  INT02NS  >  N102NE)  THEN  DO; 

/*  SERVICE  CHAN  B  V 
CALL  SENOSEyTtf TPSI4,  LEN61H( TPJI 4) ) ; 

IF  CNT02RX  (NT02N6+1)  AND  03CH)  =  080H  THEN  DO; 

/*  HAVE  AN  S  FRAME  V 
CALL  SENOSEQldTPJI 7,  LENOTHC TP$1 7) ) ; 

IF  (NT02RX  (NI02NSFI)  AND  020H)  -  020H  THEN  DO; 

CALL  SENDSEV (d IP$ 18,  LENGTH ( TP$ 1 8 )) ; 

TH I SiSEySBI T$B  =  TRUE; 

IF  THI StSLOiBI T$B  -  SEOSBITJB  THEN  DO; 

SEylBITiB  =  NOT  SEySB I T$B; 

CALL  INITACKU); 

CALL  SLNDSE0(dTP$59,  LEND TH(TP$59) ) ; 

END; 

END; 

ELaE  DO; 

CALL  SENDSEQ (dTPi 19,  LENGTH ( TPS 1 9) ) ; 

TH  I S$SE0$BI T$B  =  FALSE; 

IF  THI SiSEQSBI T$B  =  SEOSOI T$B  THEN  DO; 

SLQiBI TiB  -  NOT  SCOiB I T$B; 

CALL  I N I  TACK ( 4 } ; 

CALL  SEN0$EQ(«TPi69,  LENS TH( TP$b9) ) ; 

END; 

END;  /*  END  20H  CONDITION  */ 

END;  /*  END  80H  CONDITION  */ 


709  3  F.I.SE  DO;  /*  HAVE  AN  I  FRAI4E  */ 


710  4 

711  4 

712  4 

7 1  4  S 

/It)  o 

717  o 

718  o 

7 1  9  6 

720  6 

721  6 

722  o 
6 

/  2  4  6 

7  2"'  ‘j 

7  26  6 

72'  6 


CALL  SEND$EQ(«JTpS20,  LENGTH  (  TPS  20) ) ; 

DEbT INA 1 1  ON  =  DETJDESTSTHO; 

IF  DESTINATION  -  'NN'  THEN  DO; 

/*  FRAI4L  DESTINED  FOR  ANOTHER  UNID  V 
IF  (NT02HX  (N102NS+1 >  AND  020H)  =  020H  THEN  DO; 

CALL  SENDSECtdTPtSI ,  LENGTH (TPSSI )) ; 

INPUliStyibl  TJB  -  TRUE; 

END; 

ELSE  DO; 

CALL  SENDSEQt  d TPS52 ,  LENCni(TP$S2) ) ; 

INPUliSEOibl  I SB  =  FALSE; 

END; 

CALL  Kill  I  LDJS$KKAl4E  (2,  I NPUT$SEy$B I TiB > ; 

CALL  SLNUSEy (KTPt 1 6 ,  LENGTH (TPi 1 9 )) ; 

CALL  MOVIH  UNT02KX  (NT02NS),  MNT01TX  (TX01NE), 

FRAMLiSI ZE) ;  /*  MOVE  FRAME  TO  CH  A  OUTPUT  TABLt  V 

CALL  LDi TAbiHSKP  (3); 

END;  /*  END  DEST  -  'NN'  V 


7  26  4 


IF  DESTINATION  =  'NL'  THEN  DO; 


/*  FRAME  FOR  THIS  UN  1 0  V 
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730  3 

731  3 

7  33  6 
734  o 
733  6 

736  3 

73  7  ft 

73U  o 
7  50  6 

740  3 

741  3 

742  3 

743  3 

744  3 

743  4 

746  3 

74  7  3 


CALL  SEHDSEOitJTPSIC,  LENGTH ( TPS  1 6) ) ; 

IF  (NT02RX  (NT02NSH)  AND  020H)  =  020H  THEN  00; 
CALL  SENOSEQ(tfTP$21,  LENGTHt  TPS21 ) ) ; 

input sseosbi  rsa  ^  true; 

END; 

ELSE  DO; 

CALL  SENDStv(«IP$22,  LENGTM TVS22) ) ; 
INPUTSSEOSBITSB  ^  FALSE; 

END;  /*  END  eOH  CONDITION  V 

CALL  BUI1.DSSSFKAME  <2,  I  NPUTSSEOSB  I  TSB ) ; 

CALL  SENOSEO ( WTPS46 ,  LENGTH (TP$46) ) ; 

CALL  MOVtU  «N T02RX  (NT02NS+7),  WNTLCTB  (NTLCNE), 

PACKL  f  SSIZE7; 

CALL  LOS  1 AbSHSKP  (3);  /*  OLST  =  NL  V 

END;  /*  END  OF  DEST  =  NL  CONDITION  V 

END;  /*  END  OF  I  FRAME  V 

CALL  SRVCSl ABSHSKP  (2); 

END;  /*  END  OF  (NT02NE  -  NT02NS )  CONDITION  */ 


748  2 

730  .3 

731  3 

73  2  5 
734  4 

/33  4 

7  3  7  3 
73d  3 

730  3 

760 

7t>l  4 
7o2  5 

7o4  4 

7l3  4 

7o  7  3 

7o8  3 

7oO  3 
7  70  3 

7/1  4 

7/7  3 


IF  ( (LCNTNE  -  LCNY'NS)  >=  PACKETSSIZE)  OR  (LCNTNS  >  LCNTNC )  THEN  DO; 
CALL  SENDSEgifl TP$23,  LEN3THUPS23) ) ; 

DESTINATION  =  DETSDESTSLN; 

IF  DESTINATION  -  'CA'  THEN  DO;  /*  PACKET  TO  CHAN  A  */ 
OUTSTABSFULL  =  F I  NOS  I  FRAME  ( 1 ) ; 

IF  (NOT  OUTSTABSFULL)  THEN  DO; 

CALL  SENDSEQ(«TP$24,  LENGTH (TPS 24) ) ; 

CALL  BUILDS  I SFRAM£( 1 ) ; 

CALL  SRVCSTA8SHSKP  (6); 

END;  /*  IF  NOT  OUTS  */ 

END; 

IF  DESTINATION  =  'CB'  THEN  DO;  /*  PACKET  TO  CHAN  B  V 
OUTSTABSFULL  -  FINDS  I  FRAME (2); 

IF  (NOT  OUTS  I A8SFULL )  THEN  DO; 

CALL  SENDSEy(@TP$25,  LENGTH( TPS25) ) ; 

CALL  BU I  LOS  I SFRAME ( 2 ) ; 

CALL  SKVCSTABSHSKP  (6); 

LND;  /*  IF  NOT  OUTS  *7 

END; 

END;  /*  LND  OF  (LCNTNE  -  LCNTNS)  CONDITION  */ 


Hi  2  LND  ROUTES  IN; 


. . * . 

PROCEDURE  ROUftSOUT  ROUTE  FRAMES  OUT  TO  NETWORK 


THE  PURPOSE  OF  IHIS  PROCEDURE  IS  fO  ROUTE  FRAMES  FROM  I'HE  LOCAL  TO 
NETWORK  TABLE  (LCNTTB)  TO  ONE  OF  THE  OUTGOING  NETWORK  PORTS  (NT01  TX  OR 
NT02TX)  AND  TO  ROUTE  FRAMES  FROM  THE  NETWORK  SIDE  BACK  ONTO  THE 
NETWORK.  IT  ALSO  MAINTAINS  FLOW  CONTROL  AND  ERROR  RECOVERY  BY  WAITING  FOR 
THE  ROIJTlSIN  PROCEDURE  TO  RECEIVE  POSITIVE  ACKNOWl EOGEMENT  FOR  I  FRAMES 
TRANSMITTED  BY  TH  I  S  PROCEDURE. 
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INPJT 

DATA  F NAMES  ARE  ROUTED  VIA  EVA'.  NATION  OF  NTOITX, 

NTD2TX,  AND  LCNITB  POINTERS  ml  I  TH  FRAME  HEADER  ADDRESS  INFORMATION. 

PROOF SS I  NO 

THE  PROCEDURE  CHECKS  LACK  INPUT  TABLE'S  POINTERS  FOR  FRAME'S  TO  BE 
li.ANSM  I  T  TED  ON  1 0  THE  NETWORK.  BEFORE  ANY  TRANSMISSION  OCCURS, 
MAXiNETWoRKtCOUE  IS  COMPARED  AGAINST  THE  DESTINATION  ADDRESS  TO  INSURE  A 
FRAME  CANNOT  CONFINUI  ON  THE  NETWORK  WHEN  IT  HAS  AN  ADDRESS  GREATER  THAN  THE 
AVAILABLE  NJMlstH  OF  UN  IDS.  NET  10  NET  FRAMES  ARE  SIMPLY  TRANSFERRED  TO  THE 
NtTwORK.  ALL  FRAMES  WHICH  originate  at  this  UNID  ARE  CHECKED  TO  I  DENT  I F  Y 
THE  TYPE.  S  FRAMES  AKh  SIMPLY  IrANSMI  TTED.  I  FITAME S  ARE  TRANSMITTED  AND 
ENTER  A  I'IMl  uCLAY  WAITING  FOR  A  GOOD  ACKNOWLEDGEMENT.  IF  A  GOOD 
ACKNOWLF.OCi:  MEN  f  IS  NO  T  RECEIVED  BY  THE  END  OF  THE  WAIT  PERIOD,  IT  IS 
['RACISM I  I  iEO  AGAIN  UPON  TriE  NEXT  CYCLE  THROUGH  THIS  PROCEDURE. 


I  • 


OU  TPU T 

A  FRAME  OF  DATA  IS  TRANSMITTED  TO  ONE  OF  THL  NETWORK  CHANNELS. 
INTERFACE 

THIS  FROCLDURE'  IS  CALLED  IN  AN  ENDLESS  LOOP  BY  I  HE  MAIN  PROCEDURE. 


NO  I  £  S : 

1.  THERE  ARE  T WO  VERY  IMPORTANT  PARAE  TuRS  RELATING  TO  THIS  PROCEDURE 
THAT  MUST  BE  CONSIDERED  PRIOR  TO  THE  MODIFICATION  U|-  THIS  PROCEDURE.  THE 
f  IRS  T  IS  VARIABLE  MAXJNE IWORKiCODE.  ALL  ACTIVE  UNIDS  ONTHE  NETWORK  WILL 
START  WITH  0  AND  PROCEED  TO  INCITEMENT  IN  A  CLOCKWISE  MANNER.  IN  THIS  WAY, 

1  HE  ADDRESS  CAN  BE  COMPARED  TO  MAX$NE  T  WORKtCODE  TO  BE  SURE  THAT  NON-EXISTENT 
UNIDS  WILL  NUT  APPEAR  IN  IkANSMITTEO  FRAMES. 

2.  The.  SECOND  PARAMETER  IS  MaXNUM.  MAXNUM  IS  ThE  MAXIMUM  NUMBER  OF 
TIMES  i HE  TiMLOUT  CYCLE  LOOPS  THROUGH  THE  RETRANSMISSION  PERIOD  FOR  AN  I 
FRAME.  THIS  PERIOD  ALLOWS  T I  ML  FOR  A  VALID  ACKNOWLEDGEMENT  TO  BE  RECE I VED 
AFTER  ITU'.  I  FRAME  IS  TRANSMITTED.  THE  BASIC  PERIOD  Is  SET  THROUGH 
N.INSlOlUT  IOR  2/  M  i  El  ISLcONDS.  IF  MAXNUM  -  10,  THEN  THE  WAIT  LOOP  IS  270 
M 'LL  I  SEC  JNOS . 

><»>....  .  .  •  >  4  .  .  «.«<<»«  »»..«•*..*««.  li 

/  74  I  ROUTE iOUT:  PROCEDURE  REENTRANT; 


11 ‘j 


111  ’> 

)  5 

7bu  4 

Pi  2 

7.)  5  S 

704  S 

Uv  4 


SERVICE  Oil  AN  A  V 

IF  t(  (KOINE  -  1X0  IKS)  >-  li'AMESsI  TD  OR 
(  TXOINS  >  F> DINE )  THEN  DO; 

CALL  SENDSLOTM  IPt26,  LENG TH (  TPt.lB) ) ; 

IF  (NTOITX  (TXOINS)  AND  01  M) 

<-  MAXtNLI'WORKSCODE  THEN  00; 

IF  (NYorx(  TXOINS  +  I)  AND  BOH)  =  BOH  THEN  DO; 

CALL  SEKV i CttXMl I $A;  /*  11 S  AN  S  FRAME  V 

CALL  INI  TACK (5); 

CALI.  TENUSEQT  W  TPJ2  7 ,  LlNCTfH  IPS27 ) ) ; 

END; 
l-l. DO; 


H  -  S  5 
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737 

S 

IF  TIMCHA  =  FALSE  THEN 

738 

b 

CALL  riML$UELAYiCHn; 

780 

b 

ELSE  DO; 

700 

6 

CALL  SENOSL0(«rP$27,  LENGTH(TP$2 

701 

6 

CALL  SERV 1 CEIXMI T$A; 

7  02 

0 

RE ( RANSJ A  =  RETRANS1A  +  1; 

705 

6 

CALL  TIME'lDELATSCHA; 

7514 

o 

END; 

70S 

b 

END;  /*  END  NTOXTX  =  80H  */ 

706 

4 

END;  /*  END  «:=  .MAXINE  ! WORK t CODE  THEN  ' 

70/ 

5 

ELSE  DO; 

703 

4 

CALL  SlNDSE0(«TH$48,  LENGTH (  TPitB) ) ; 

7  09 

4 

S TAT  111  (11)  =  STAiTb  (1  1  1  +  1  ; 

300 

4 

STATTB  (14)  =  STAITB  (14)  +  1; 

801 

4 

CALL  1 N 1  TACK ( 3 ) ; 

802 

4 

END;  /*  END  <=  MAXINETWORKICODE  */ 

805 

5 

IF  REIRANSSA  >=  MAXRtTRANS$A  THEN  DO; 

80S 

4 

CALL  INI  TACK (3); 

306 

4 

CALL  SENUs£Q(aTP$S6,  LENGTH(TP$5o) ) ; 

307 

4 

END; 

303 

3 

END;  /*  END  (TXOINE  -  TX01NS)  CONDITION  V 

/*  SERVICE  CHAN  8  V 


809  2 

01  I  3 
UI2  5 

ul4  4 
3 1 1>  3 
017  b 
bid  b 
819  b 
320  4 

0 '2 1  b 
822 

32.5  b 
H24  b 
U2b  b 
826  0 
32  7  o 
828  b 

629  b 
3.50  4 

851  3 

o.52  4 

855  4 

854  4 

d5b  4 
3  56  4 


IP  t (TX02NE  -  TX02NS)  >=  FRAMES SIZE)  OR 
UX02NS  >  TX02NE )  THEN  DO; 

CALL  SENDSEQ(M1P128,  LENGTH (TPS 23) ); 
IF  (NT02  fX  UX02NS)  AND  OFH) 


--■  MAAiN£TWGRK$CODE  THEN  DO; 

IF  ( N I J 2 1 X ( TX02NS  +  1 )  AND  80H)  -  30H  THEN  DO; 

CALL  SEKVICEtXMl T$8;  /*  I  TS  AN  S  FRAME  */ 

CALI.  I N I  TACK  ( 4 ) ; 

CALL  sENOSEQ ( 3  f P J29 ,  LENGTH ( TP$29) ) ; 

END; 

ELSE  DO; 

IF  TiMOlB  =  FALSE  TrtEN 
CALL  I  IMEiOELAYiCHS; 

ELSE  00; 

CALL  SENDSE0(«rP$29,  LENGTH! TPJ29) ) ; 

CALL  SERV ICESXMI TJ3; 

KETRANSSB  “  RETRANStB  +  1; 

CALL  T  I  MEiDl  LAYiCHB; 

END; 

END;  /*  END  NTOXTX  -  OUII  */ 

ENu;  /*  END  <=  MAX$NETW3RK$C0UE  THEN  »/ 
else  do; 


CALL  SENDSE0(«Tr>i4  7,  LEND TH( 1P$4 /)) ; 
ST  A  r  Tri  (11)=  SI  A  n  H  (II)  p  1  ; 

STATTB  (14)  =  S1ATTB  (14)  +  1; 

CALL  INI  TACK (4); 

/*  END  <  =  N/\X $NE T WORKiCOOE  V 


END; 
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887  3 

839  4 

840  4 

841  4 

842  3 

84  s  2 


844  I 

o4>  2 

84b  2 

841’ 

j4  8 
84.4 

8VL' 

o’vl 

U‘»  J  ^ 


ov  5 

■  y.  /  •> 

■  ■  •  >  4 

4 


jt>o  4 
Ht  /  S 

(100  4 

809  2 

8 10  2 

>>71  2 

8/2 

8/3  2 


ll'  RETRANSSb  >=  MAXRETRANSStf  THEN  DO; 

CALL  I N I  f  ncK  ( 4 ) ; 

CALL  sENDSE0i«<iyj87,  LENGTH ( TPJS7) ); 

END; 

END;  /*  CNO  (TX02NE  -  TX02N8)  CONDITION  */ 
END  ROUTLiOUT; 


PROCEDURE  KLADJLINl 


PURPOSE 

KLAUS  A  LINE  ur  DATA  FROM  THE  HOST  ISIS  11  CONSOLE,  THEN  INTERPRETED 
FOR  EXECUTING  EITHER  LOAD  ANOTHER  TEST  MESSAGE  IN  THE  LCNTTB  OR  STOPPING 
THE  TEST. 


REAuiL INE :  PROCEDURE; 
DECLARE  INDEX  WORD; 
DECLARE  LOOP  WORD; 


INDLx  -  0; 

cALL  SLNDSLgidMSOI ,  LENGTH (MSG1) ) ; 

ACTUAL.  =  DQ$REA0(RSC0NN,  (/DUFFER,  128,  ((STATUS); 
cAl.L  LRRiCHK; 

IF  CHdTrER(u)  *  •  Y *  i  OH  (BUEFEIUO)  -  ’y’)  THEN  DO; 

CAl.L  SLNDSE0(uMSG4,  LENGTH (MSG4) ); 

ACIUA1,  -  DviREAOtRtCONN,  (/BUFFER,  128,  ^STATUS); 

CALL  LRRiCHK; 

LOOT1  -  AuCiill.'XTHUI  FER(O) ) ; 

li  (LOOP  >-  1)  AND  (LOW (LOOP )  MAXtNETwORKtGODE )  THEN  DO; 
CALL  SLNUStgc*MSG3,  LENGTH(MSG3) ) ; 

AUJAL  -  O0SrEAD(R$CONN,  ./BUFFER,  128,  (/STATUS); 

CALL  EKRiCHK; 

IF  (BUFFEk(O)  • 1 • )  AND  (BUFFEK(O)  <=  >9')  THEN 
DO  INDEX  -  I  TO  ASCI HEX (DUE KER(O) ) ; 

CALL  LOAD (LOOP) ; 

END; 

END; 

LNU; 

CALL  SENDEE v ( «MS02 ,  LENGTH ( MSG2) ); 

ACTUAL  =•  DOi READ ( RiCONN ,  ./BUFFER,  128,  (/STATUS); 

CALI.  EFRt'CHK; 

IF  (BUFFEK(O)  -=  *  Y '  )  OR  (bUII  EK(O)  “  * y  ’ )  THEN 
FOREVER  =-  FALSE ; 

ELSE 

FOREVER  -  TRUE; 
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b/4  4  LUO  RlAOIl  INc.  ; 

/*.*»**». *»***■!. ft-*.**-********.*.*..*.*. 

MAIN  PKuuA.AIi  i'Ur<  OIL  UL  I  WOKE.  OPERA]  IUG  SYSTEM 

Till:  P'JKOOU  or  MIS  I  xOCLDIJ.m  15  fO  PiIOVIDl  OIL  MAIN  L I NL  COOL  Of 
PKOOLaS I  NO  I  OK  N.oS. 

INPUT  NON... 

PhO.LSS  I  NO 

THIS  PKOuLiUKl  St  NOS  A  HEADER  TO  THi:  NLfWOKK  MON  I  T  OK  CONSOLE  , 

inii iali/es  rui  nnnokk  iabiec  via  i n i  rt;j$ tab,  ijsls  insio  ro  imiiali/e  in 

St  3  I  HTlI'KiJI  I  S,  AND  LOOPS  ENULESSLY  ROUTING  EKAML  :>  IN  AND  OtH  /IA  I-’ka.,a^.  5 
KOUIUIH  A.»0  KJuiLtOUT. 

OU  I PU T 

A  STANu'T’  MESSAGE  IS  SiiNT  10  ME  NETWORK  MONITOR  UPON  SI’ AkInp. 

I N  li.KFACE 

THIS  PROCEDURE  IS  ML  INITIAL  ENTRY  POINT  KOR  N.OS.  11  OPlKATlS  T.lKOOut 
SINGLE  CALLS  TO  CALL  St-Nl.'SLQ,  INIltNiTAU,  ANO  INSIO,  AND  RlPl  T  I  T  I  Vc.  CALLS  !0 
KOUTlSIN  AnL)  UOUTEtOUT. 

IJJlcSs  NONE. 

*  *  ft  *  *  It  a  ftftft.ftftftftftftftftftftftft  ft  ft  ft  ft  ft  *  ft  ft  ft  ft  ft  ft  ft  ftftftftftftftftftftftftftftft  I  ...  a  ftftftftftftftaftftftft  ft  a  ft  »  •  ft  / 

J’/5  I  HlOiN: 


/*  ML  EOLI.CWING  I'Oixxxxx  CALLS  MUST  cl.  ME  K  1  RSI  f ALi.UTAtX.L  CODE  IN 
MIS  MJOULt  KW  THE  I  SIS- II  CONSOLE  I/O  TO  OPERATE  PROPERLY. 

JO  NOT  CHANGE  Irll.  LOCATION  Of  THIS  COOL  OK  IT  WILL  NOT  W ORK ! 

UO  NOT  MaKL  'BEGIN:*  PUbLIC  ANO  THE  S TAKT (BEGIN)  ON  ION  Wl  M 
L iNKlo  OK  IT  WILL  NOT  WORK I  V 


WScONN  -  OOiCKr.  AIl  («j(4,  '  :U>: ' ),  abTATUS); 


i 

CALL 

LkKiOiN ; 

B// 

i 

CALL 

DoiOPLN  C WiCC'NN ,  i,  0,  WslA’.Us); 

B/‘> 

i 

CALL 

LrrSOi  Its ; 

,1  !■* 

i 

Hi  Col 

IN  -  uyiATIACII  16(4,  1  :CI:'),  usIAKISi; 

i 

bivj 

i 

CALL 

t.  KKiC.HK ; 

BBl 

i 

CALL 

OviOPLN  (f.iCOUN,  1,  0,  BS I. A IUS) ; 

j  i ; 

i 

CALL 

L  Nil  ionic; 

iio  5 

i 

CALL 

SLNDSlv<«-.I  Aik  MPiiiOK,  LI.NC  I r I C  S I  AATUPtHUn  )  ) ; 

ft 

t>o4 

i 

CALL 

SENOSLOi  JI.  ’SI  ,  I...NJ  IH ( TPi  1  ) ) ; 

o'o‘j 

i 

CALL. 

INI!  »Ni TAH; 

i 

CAI..L 

sLNOSLOmiPU,  l.l  NMH<  IPU’) ) ; 

dd; 

i 

CALL 

KLADil.  1  ML  ; 

j.  . 

diid 

i 

CALL 

SLNbSLOUrP’iT,  l.l  NO  Till  IPii)); 

Bj  ) 

i 

00  WHILE  KOKLVtK; 

rs) 

c 

CALL  Si  NO  lLj(  t<  1 PS4  ,  1  I.NCIMi  IPJ4)  ); 

A 


ii 
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boi 

2 

CALL  ROUTES  IN; 

692 

2 

call  b£NOaO(tflPi42,  LENGTH!  H‘$4 

69  b 

? 

CALL  ROUTE  SOU  T; 

69  4 

1 

CALL  READS  1  AH; 

y 

CALL  SLNObtOI  « 1 P14  3 ,  LCIoj  IH  (  TPS4 

U'>0 

2 

CALL  Rt ADSL  INC; 

d9  / 

LMD; 

dOd 

1 

CALL  SLNDjLvl«IPS44,  LENGTH! IPS44 J i ; 

&j9 

1 

CALL  UvSGLObClWSCONN,  ublATUS); 

>00 

I 

CAlL  EKKSChK; 

'>01 

1 

CALL  DISCLOSE  (K'SCONN,  eSTATUS); 

90  J 

1 

CALL  LKRSCMK; 

90  i 

1 

CALL  DviUtiACHlWSOONN,  UbVATUb); 

004 

1 

CALL  LRkS:hK; 

1 

CALL  DCSDt TACH ( KtCONII,  (ibTAfUS); 

l)uO 

1 

CALL  ERrSCiIK; 

/ 

1 

CALL  I'vSLXI  1(0); 

JuO 

1 

l  NO  MAID;  /*  END  I4AIN  MODULE  */ 

/*»  »»*»••  **•  •>  »■»•••»»  .»  »»•»•»*  uijjj  *»«»  **««*  *  miixiol  a  >  it  *»••*  ny 

iMOL'OI.L  I  ;<P'jkMA  i  ion: 

CvLl  Aid  A  b  I  LF  -  1 /A  Jit  4oD0D 

1  All  T  AKLA  S I  / t  -  GCblitl  3 1  o  5u 

VAKIAliLL  Aid  A  b  I  L’i  -  2  5:./H  B9D40 

MAXIMUM  STACK  BI/C  OU2t.li  30D 

lb/'.'  L  I NL  j  kl.  aO 
0  PROGRAM  tKKJIU  ;) 

tr-lO  01  PL  /M-bb  oOU>li_AriuN 
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LOCAL  NKI  rtOl'K  IcST  PROGRAM,  .’>0  SEP  I  3«4 


PROCESS  l  lib  -  Tilt  PROCEDURE  DEltRMINES  flit  I  ABLE  TO  fit  PROCESSED, 
ADVANCES  lilt  NEXiiLI^TYSUYTE  ADDRESS  BY  ONt  PACKCTtSIZE, 
AND  Ali JUSTS  FOR  BUFFER  WRAP  IF  NECESSARY . 

OUTPUT  -  T  nL  SPECIFIED  TABLE  (IAS  ITS  NEXTiEMP  TYtBriE  ADDRESS 
ADVANCED  BY  THE  LENGTH  uF  A  SINGLE  PACKET. 

I  NTUrKACE  -  1(1  IS  PROCEDURE  IS  CALLED  BY  PROCEDURE  ROUTE*  IN 
AND  KuUTEiOJT. 


1'ji 
I  vl 


LUtTAUiUSKP:  PRuClDURi.I  TABLE )  ; 

DECLARE  TABLE  ADDRESS; 


l  y‘i 
I  Du 


If  (TABLE  >-l  AND  TABLE  III  TliLN  /*  6  FOR  REAL,  II  FOR  S/M  V 
DO  CASE  TABLE; 


ID  7 


/*  CASE  ZERO  IS  NULL  V 


I  Del  2> 
1  TO  4 


20o 

-•01 

202 


DO;  /*  START  CASE  ONE  V 

LOO  INF  -  LCOir.L  +  DAT  AtGRAMt  SIZE; 

/*  ADVANCE  NLXULMPTY  ADDRESS  V 

IF  LCulNL  >-  1.001  SZ  THEN 
LC01NE  -  0; 

END; 


Zu  5 
204 
-OS 
zOu 
207 


DO;  /*  STAi-iT  CASE  TWO  V 

LCO-’NE  -  LC02NL  p  DATASGRAMiS I ZE ; 

IF  LC02NL  >-  LC02SZ  TliLN 
LCOZNfc  -  0; 

rINl); 


.‘OS  * 
200  4 

210  4 

2  I  I  4 
212  4 


DO; 

L-.02NL  -  ECO  Lilt  +  DA  f  A* GRAM* S  i  ZE ; 
IF  LCuTNL  LC0  5SZ  THEN 
LCOJNE  *  0; 

END; 


2  I  i  V 
<14  4 

,Li  4 
2  1'.  4 

21.  4 


DD; 

I.C04f>L  -  LC04NL  (  DAT AiGR/iMt SIZE; 
IF  LO04I4L  >-  I.CU4SZ  THEN 
LOO-INI  -  0; 

END; 


21; 


/*  Si  ART  Of  CASE  FIVE  V 


21  J  I 
..  20  -I 
0  I  4 

222  4 

4 


DO;  /•  START  OF  CASE  SIX  V 

Li.NTNl  -  L.'NINt  f  PACKCTtSIZE; 

T  LON  /Nl  --  LCNIjZ  I  Ilf  N 
LON  INI  -  0; 

INI); 


-  S  I 


II 


PL/M-uO  COMPILER 


LOCAL  NETWORK.  IL3f  ^RGuRAM,  .50  SEP  1984 


OUTPUT ( POK f $  1  )  -  TR/\N:>S31  ATE 


output (pokt$2) 
out  phi  (PO;<r$5) 
output(ports4> 


“  TKAMStS  TATE 

-  TRANS$ST ate 

-  transss tail 


LND; 
t.'MDi.t ; 


loO  I 
181  2 
182  2 

183  5 

184  3 

183  3 

186  2 


EnD  IRNMI TiPKT ; 

V 


/*  PROCEDURE  SNDSLO  SEND 8  DATA  TO  LOCAL  MONITOR  FOP  TESTING 

/* 

/*  THIS  PROCEDURE  1AKES  A  MESSAGE  STRING  ANO  OUTPUTS  IT  TO 

/»  THE  LOCAL  MONITOR  ATTACHED  TO  1  HE  8o/12  CARD. 

/* 

/*  INPUT  -  A  ADDRESS  TO  THE  t-ESSAGE  LOCATION  IN  MEMORY  AND  THE 

/*  NUMBER  OF  BYTES  TO  BE  SENT  ARE  INPUT. 

/*  PROCESSING  -  THIS  PROCEDURE  CHECKS  THE  OUTPUT  BUFFER  STATUS 

/*  IN  A  LOOP  UNTIL  THE  BUKFtR  IS  EMPTY.  IT  PLACES  ONE 

/*  BYTE  AT  A  TIME  IN  ME  OUTPUT  UsART  UNTIL  THE  MESSAGE 

/*  IS  UONE . 

/*  OUTPUT  -  f-ESSAGE  TO  ME  USART  CHANNEL. 

/*  INTF.RT  AcE  -  THIS  PROCEDURE  IS  CALLED  BY  I  HE  FOLLOWING 

/*  PROCEDURES :  ROUlEilN,  ROUl.iGUT,  AND  RAIN. 

/**»****»***»**»»»»»*»»»»»»»»»»*»«»»««»«»««»»t»**»«»***»*»«***»»*t»**«*i 

EKRSCHK :  PROCEDURE ; 

IF  STATUS  <-•  0  THi.N 
DO; 

CALL  ERROR (STATUS); 

CALL  EXIT; 

END; 

END  ERRiCHK; 


*/ 

V 

V 

V 

V 

V 

V 

V 

V 

V 

V 

V 

*/ 
*  / 

V 

V 


187  I  SNOSEQ :  PROCEDURE (  MSG,  10TAL); 

188  2  DECLARE  MSG  ADbklSS; 

18U  2  DECLARE  TOTAu  ADDRESS; 


ISO  2  CALL  WR  IT  E  (  W$CONN,  TOTAL,  .STATUS); 

191  2  CALL  ERRtCnK; 


192  2  END  3NUSE0; 


. . . . * . 

PROCEDURE  EDSlABirlSKP  LOAD  TABU  HUUSLKEEP 


I  TIL  PURPOSE  Of'  THIS  PROCEDURE  IS  TO  IKXISeXLEP  A  SPEC  I M  CO  BUFFER 
TABLE  AFTER  LOADING  OE  THE  USER  DATA  FROM  Till:  HOST. 


INPUT  -  THE  INPUT  IS  AN  ADDRESS  INDICATING  THE  TABLE  KLOU  IKING 
CHANGES. 


1 


H  -  SO 


.3  s'.  /. 

-V  -V. 


- .  • .  --J 


PL/M-80  COMPILER 


L OCbi  NE  T WORK  TEST  PROGRAM,  30  SEP  1984 


1  Ob 

2 

LCG3SZ 

DAT  AlTnBLEiS 1 ZE ; 

ISO 

2 

LC04NS 

0; 

160 

2 

LC04NE 

- 

0; 

161 

2 

LC045Z 

- 

DATA* TABLE* SIZE; 

162 

J 

TXOINS 

0; 

163 

> 

TX01NE 

- 

0; 

164 

> 

TXOIS/. 

* 

DA T AST  ABLE* S 1 ZE; 

1  66 

2 

TX02NS 

0; 

16o 

2 

TX02NE 

- 

0; 

it,  7 

2 

TX02SZ 

- 

DATA* TABLE* SIZE; 

168 

TX03NS 

S 

0; 

160 

2 

1 XO  jNE 

= 

0; 

1  /O 

2 

1 XO 5SZ 

“ 

D A  r At  T  ABLC  *  S 1 ZE ; 

,  71 

2 

TX04NS 

a 

0; 

i  r.‘ 

2 

TX04NE 

= 

0; 

1  73 

TX04SZ 

DATA*  TABLE* S 1 ZE; 

1  74 

IX  =  0; 

1  76 

2 

DO  WHILE 

IX  <  STAltNBR; 

176 

K 

SlATTB(IX)  =  0; 

1  7/ 

5 

IX 

= 

IX  +  1; 

178 

5 

END; 

170 

2 

END  INITILIIArf; 

PROCEDURE  TKNMI TSPNT  TRANSMIT  A  PACKET 

IRE  PURPOSE  Or  fHIS  PROCEDURE  IS  I)  ENABLE  THE  DATA  POR  T  FOR 
PACKET  TRANSMISSION. 

INPUT  -  THE  US  ART  DATA  PORT  ADDRESS  Is  INPUT  TO  TRNM1  TiPKT. 

PROCESSING  -  THE  PROCEDURE  ENABLES  THE  SLLEC TED  USAKT  AND  SE I S  THE 
INTERRUPT  EUR  THE  TRANSMISSION  OF  A  PACKET. 

OUTPUT  -  (HE  INTERRUPT  IS  SET  ON  THE  CHANNEL  SPECIFIED  BE  PORTlNUM. 


INTERFACE  -  THIS  PROCEDURE  IS  CALLED  UY  PROCEDURE  ROUTE* IN. 


/*  THIS  IS  A  NULL  PROCEDURE  FOR  SIMULATION  PURPOSES 

TRNMI  TSPKT;  PROCEUSJKf  (POR  T*NUM) ; 

DECLARE  PORTlNUM  BYTE; 

DISABLE; 

DO  CASE  PORIINUM; 


-  4  0 


,  ImJL  aAm&t 


-  ■ - 


J 

- . - •. J 


H 


Pl/M-Bo  COrtMLER  LOCAL  NETWORK  TEST  PROGRAM,  30  SEP  1904 

/*  SET  PIT  #2,  REGISTER  tC>  FOR  US  APT  #4  BAUD  RATE  */ 

/*  INITIATE  RCSEI  ON  ALL  USAkTS  */ 

/*  INITIALIZE  THE  POUR  USARTS  TO:  2  STOP  BITS,  NO  PARITY,  */ 
/*  6  BIT  CH  AT  ACTE  ITS,  AND  1oX  BAUD  RATE  */ 

/*  INITIALIZE  THE  U269  PROGRAMMABLE  INTERRUPT  CONTROLLER  */ 


1  i2 

2 

MSGNUM  -  0; 

1  33 

2 

BY  lESiSEN 1  $  1 

-  J; 

1  34 

2 

BY  TES'JSENT$2 

=  0; 

)3s 

2 

BY  IES$SlNTJ3 

■=  0; 

1  to 

2 

BY  ILSiSLN  Pi 4 

=  0; 

1  37 

2 

TRANSil  $RDY  “ 

true 

1 3a 

2 

TR.ANSiUiRDY  - 

TRUE 

1  39 

2 

TKANS$3$RDY  - 

TRUE 

140 

2 

TKANSJ4 JRDY  - 

true 

141 

2 

END  INVInT; 

/*  PROCEDURE  I N I TSLt TAB  INITIALIZES  THE  LOCAL  TABLES  V 

r  v 

/*  THIS  PROCEDURE  SETS  TrIE  LOCAL  AND  NE I  WORK  TABLES  TO  THIER  V 

/*  INITIAL  VALUES  PRIOR  TO  PROCESSING  ANY  MESSAGES.  V 

/»  V 

/*  V 

/*  INPUTS  -  NONE  V 

/*  PROCESSING  -  PUTS  INITIAL  VALUES  IN  THE  LOCAL  TABLES  */ 

/*  OUTPUT  -  NONE  V 

/►  INTERFACE  -  CALLED  BY  THE  MAIN  PROCEDURE  V 


i  42 

1 

INI  TiLilAO: 

PROCEDURE; 

143 

‘ 

DE  LlARE 

IX  ADDRESS; 

144 

LON  i'NS 

=  0; 

14a 

2 

LCNINE 

-  0; 

1  46 

2 

lcntsz 

-  PACKE It  TABLETS  1  /.E 

147 

2 

NTLCNS 

=  0; 

I4B 

2 

NTLCNE 

=  0; 

149 

2 

NTLCSZ 

“  PACKE TiTAbLE iS IZE 

ISO 

} 

L  CO  I N  S 

-  0, 

161 

2 

LC01NE 

-  0; 

162 

2 

LCOISZ 

-  DATAliT  ABLtiS  1 ZE; 

165 

) 

LC02NS 

-  0; 

164 

2 

LC02NE 

=  0; 

166 

2 

LC02SZ 

=■  DATAi  TABLEiS  1 2i. ; 

It.  6  2 

IE  7  2 


LC05N  T  -  0; 
LC03IIL  0; 


PL/.+-80  Oji'EMLCR 


L  Of 1AL  Ml  I  nfjKA  I L  j  i  r'KOuRAM,  JO  OL  ’ J  1*784 


1 1 1 

- 

OEClanl  (VAL,  1)  BYT; 

112 

2 

TLMI'MI)  -  ASCI  1  (SHIaVAL.T)  AuO  OKU) 

1  1  5 

2 

f  t  Ml  1(1*1)  -  ASCII  (VAL  AMD  OEH); 

114 

2 

t  MU  1121X4  Ac-C; 

lib 

1 

ASCtHEA:  PROCEDURE (O'  BY  IE; 

116 

1 

Dt.(JLAl<L  C  B'r  TL; 

1  1  7 

IK  U*  >-  ‘0*  Aiju  0  <-  KJM  fhLN 

1  IB 

2 

KLlUKN  (C-JOH); 

LL  Jl 

1  1  0 

2 

IF  (C  >-  'A'  AMU  C  <=  'f  '  )  THEN 

1-0 

2 

return  (c-j/in; 

RETURN  C; 

122 

2 

END  ASCJIILX; 

1 21 

1 

VAl  IUSHla;  PROCEDURE  (U)  BYTE; 

124 

- 

Ota  ARE  (H,  1  )  BYTE; 

12b 

2 

DO  1  -  0  T 0  LAS  1 (ASCI  1); 

l.’o 

j 

II  H  -  ASC  11(1)  THEM 

12  7 

3 

RETURN  TRUE; 

1  2b 

5 

OIL); 

1  2't 

2 

RL  TURN  FALSE; 

1  50 

2 

END  VAL  1  DjIiLX; 

/*  *********  *■»«**«•****»**  **************** 

/*  PROCEDURE  INVINT  INI  r  I AL I  /US  THU  HARDWARE  PORTS 

/* 

/•  THE  PURPOSE  or  THIS  PROCLDURc  lb  TO  INITIALISE  THU  VECTOR 
/*  TABLES  AND  Al.L  THE  LOCAL  NETWORK  PORTS.  THIS  INCLUDES  T Hi-  IIMLRS 

/*  INfl.KKuPl  CUN  TROLL  LR ,  PARALLEL  PORT  ON  THL  I  SBC  bo/  1C,  AMU  PL. 

/'  USA, RTS. 

/* 

/*  INPUT  -  HOME 

/*  PROCESS I Mu  -  SL  f b  THL  VECTOR  INlERRUPT  TAbLL  VALUE S  AMO  WRITES  THL 

/*  con r:<Oi_  word  ru  ini.  pic,  pit,  ppi,  and  usakte. 

/*  OUTPUT  -  NONE 

/»  INTERFACE  -  CALLfc')  BY  MAIN  PROGRAM,  CALL S  DELAY  PROCtuURi: 

. . * . . . . . . •••>' 

IJ!  1  INVINI:  PROCEDURE ; 


V 

V 

V 

V 

V 
*/ 

V 

V 

V 
*  / 

*/ 

V 

V 


/*  INITIAL!  /r  8260  PROGRAMMABLE  PlHIPHEKAL  IMILKLACE  (PPI)  V 
/*  St.  i*  BAUD  P  A  IT. S  rOK  LOCAL  CHANNEL  USARTS  V 

/*  set  p i t  m,  register  »\  tor  usart  #2  baud  rate  v 

/*  Set  PIT  #1,  RLGI  SIf  l<  #2  FOR  USART  #3  BAUD  KAIE  V 


H  -  4  7 


PL/M-80  CONVJ  ILER 


LOCAL  NIC  1" W0L<K  TEST  PROGRAM,  30  SEP  1 9o4 


93 

94 

95 
9o 

W 


9  b 


99 


100 

101 

102 


I  03 


104  1 

1 0‘>  2 
1 00  7 

107  3 


10b  3 

1 09  2 


1  to 


•  rp$vio 
DECLARE 

•  rptsto 
DECLAIM. 
• VPiSoA 
DECLARE 
1 TPJSoB 
Ol CLARE 
1  1  PISoG 
Uici.  Ai't: 
1 IPt5l>D 


Reading  test  datagram 
IPI-j'juC)  BYU  T>ATA(0R,LF, 

Reading  lost  datagram 
TPisLAC)  BY  I L  0 A r A ( Cl< , L K , 

Reading  loi t  .In I  ayr  am 
TPTSOm*)  BYTE  DATA(CK,LF, 

Reading  test  datagram 
I PiScG (*)  BYTE  DATa(CR,LF, 

Redding  tost  datagruiii 

rpjtoLU*)  otri:  datatck.lf. 

Reading  tost  datagram 


from  I X03 TB ' ) ; 
from  TXG4TB'); 
f  rom  LC0 lib'); 
from  LC02TB'); 
t ro.il  LC03rbM; 
from  lC04 lb' ) ; 


DECLARE  MSGIl*)  BYTc  DATA(CR,LF, 

'Do  you  wont  to  loud  the  tost  message?  '); 
DECLARE  MSG2( * )  BYTE  IMTA(CR,LF, 

'Do  you  went  to  stop  the  test?  '); 

DECLARE  MSG3C)  BYTE  DATA(CR,LF, 

'Load  Into  which  host  channel  (t, 2,3,4)?  '); 
DECLARE  MSC4(*)  BYTE  DATA(CR,LF, 

'Mow  many  datagrams  (0-9)?  '); 

DECLARE  MSG5C)  BYTE  UATA(CR,LF, 

'Destination  network  code  (1,2,3)  -  '); 
DECLARE  MSCdC)  BYTE  UATA(CR,LF, 

'Destination  host  code  (0  -  FFH)  =  '); 


/* 

/* 

/* 

/* 

/» 

/* 

/* 

/* 

/» 

/• 


PROCEDURE  an  AY 


CAUSES  A  ONE  SECOND  DELAY 


THE  PUnPOSL  OF  THIS  PROCEDURE  IS  TO  ADD  DELAY  TO  PARTS  OF  THE 
INI  HAMZAT  I  ON  PROCEDURE  THAT  IS  TIME  DEPENDENT. 

INPUT  -  NONE 

PROCESSING  -  USES  BUILT  IN  PROCEDURE  IN  A  LOOP 
OUTPUT  -  NONE 

INTERFACE  -  CALLED  BY  INVINT 


I  ***  » / 

V 

V 

V 

V 

V 

V 

V 

V 

V 


delay : procedure  publ i c; 

DECLARE  1  BYTE; 

DO  l-l  TO  40; 

CALL  T I  Ft  (250); 

/*  TIM;  IS  A  BUILT  IN  FUNCTION  OF  PLMBO  WHICH  CAUSES  V 
/*  A  DELAY  BASED  ON  ME  NUMBER  IN  PARENS  V 

END; 

END  DELAY; 


/* 

procedures  to  convert  hex  to  ascii  for  use  with  diaplaying  a  frame 


Ht  XUv::  I'koCUUUaVAL  ,  I); 


H 


46 


PL/J-+— 00  COMPILER 


LOCAL  NE  f WORK  TEST  PROGRAM,  30  SCP  1904 


6d  1 

DECLARE 

•  rr-$32 

o9  1 

DECLARE 

'  TPJ.53 

70  1 

DECLARE 

' TP $34 

/I  1 

DECLARE 

’ TPiib 

72  i 

DECLARE 

'  TP$iO 

a  i 

HE  Cl.  ARE 

'1P$40 

74  1 

DECLARE 

’ TP$bO 

7b  | 

OECLAKE 

' TP$d  1 

76  I 

DECLARE 

'  TP$S  1  A 

77  1 

DECLARE 

'  TPJblB 

7d  1 

DECLARE 

'  TP'iti  1 C 

79  1 

DECLARE 

'  TPStilO 

60  1 

DECLARE 

’ TP$S1E 

8!  1 

DECLARE 

1 TP$b2 

U2  1 

DC  CLARE 

MP$S2b 

U3  ] 

DECLARE 

’ VP$52A 

!4  1 

DECLARE 

1  !  V$bi 

at  1 

DECLARE 

' TP$biA 

Ut  1 

DECLARE. 

'  TPSbdA/ 

81  1 

DECLARE 

’ TP$b  JB 

UU  1 

Ot Clare 

’ TPibiO 

09  1 

deceake 

' IP$b4 

90  I 

declare 

' IPSSSA 

91  1 

DECLARE 

'  TP$5‘.)B 

92  1 

Dl.  a.  ARE 

DATA  IN  NTLCTB  DESTINED  LOR  LoCAL  CIIANNEL-2' ) ; 

TPJ32(* )  BY  It  DATACCR.LF, 

DATA  IN  NTLCIB  DESTINED  LOR  LOCAL  CHANNlL-3'); 

TPt53C«>  BYTE  DATACCR.LF, 

DATA  IN  NTLClB  DESTINED  FOR  LOCAL  CHANNEL -4 ' ) ; 

TP$34(*)  l-YIl  DATACCR.LF, 

ERROR  OCCURED  IN  NTLCTB  TO  TXOXTB  OUT-PROCESSING'); 
TElitC*)  BYTE  DATA(CR,LF, 

END  OF  ROUTES  IN-RUJfEiOUT  LOOP’); 

TPidoC*)  BYTE  DATA  (OR,  LF, 

HAVE  EXIIlD  ROUTE $  I N-ROUTEiOU T  L OOP  and  returned  to  ISIS'.CR.LF) 


Packet  moved  from  LCNTTB  to  UTLCTB'); 

BYTE  OATACCR.LF, 

Channel  Number  -  '); 

BYTE  OATACCR.LF, 

Dos  f  I  nation  -  • ) ; 

)  BYIE  DATACCR.LF, 

Destination  Network  -  '); 

)  BYTE  OATACCR.LF, 

Destination  Control  Code  =  '); 

)  BYTE  OATACCR.LF, 

Destination  Country  Code  =  '); 

)  BYTE  OATACCR.LF, 

Lot  Its  -  ’ 

)  BYTE  OATACCR.LF, 

Hlbits  =  '); 

BYIE  DAI  AC CM, LF, 

Dosl Inatlon  Address  =  '); 

)  BYTE  OATACCR.LF, 

Source  Address  -  '); 

)  BYTE  OATACCR.LF, 

Destination  Host  -  '); 

BYTE  OATACCR.LF , 

Source  Address  -  '); 

)  BYTE  DATACCR.LF , 

Destination  Network  Code  >  Max  Network' >; 

*)  BYTE  DATACCR.LF, 

Source  Network  Code  >  Max.  Network'); 

)  BYTE  OATACCR.LF , 

Country  Code  <>  This  Country  -  Sent  to  UN  ID  O'); 
)  BYIE  DATACCR.LF, 

Control  Code  <>  O'); 

BYIE  OATACCP.LF, 

Loaded  test  datagram  In  I.C0XT3'); 

)  BYTE  DATACCR.LF, 

Reading  test  datagram  from  TX01TB'); 

)  BYTE  OATACCR.LF, 

Reading  test  datagram  trom  TX021B1/; 


It  -  4  b 


PL/M-bO  CGNPILLR 


LOCAL  NETWORK  TEST  PROGRAM,  10  SLP  I  5b4 


42  1 

DECLARE 

TPtbO  BYTE  DATATcR.LT, 

'TP$b 

DATA  LOCATED  IN  LOCAL  CHANNEL- 1 1 

>; 

43  1 

OLCLARL 

TPt  70  BYTE  DATAICK.LF, 

1  TPS  7 

DATA  15  LC01TB  TO  TxOaIJ  TRANSFER 

’  ), 

44  1 

OLCLARL 

TPtoO  BYTE  DAl  A  (CR  ,LL , 

'  TPtb 

DATA  IS  LC01  TB  TO  LCNTTb  TRANSFER 

) ; 

45  1 

DECLARE 

TP$90  BYTE  DATA(CR,LF, 

1  TPi  3 

ERROR  OCCURED  IN  LOCAL  CHANNEL- 1 

N-PROCL  SING’ 

4b  1 

DLCLARL 

TPt  IOC*)  LIT  1 L  DA  TA(CK,LF  , 

1  TP$ 1 0 

DATA  LOCATED  IN  LOCAL  CHANNEL- 2' 

; 

47  1 

DLCLARL 

TPitIO  BYTE  DATA(CR,LF, 

■TPi  11 

DATA  IS  L.002IB  TO  TXOXTB  IkANSTlR 

>; 

4b  1 

DECLARL 

TPt 120  BY fC  UAI A(CR,LF, 

1  lPi 12 

LTATA  1 S  LC02TB  TO  LCNTTB  TRANSFER 

); 

43  1 

DLCLARL 

TPS  1  it  * )  BYTE  DATA(CR,LF, 

' TP$ 1 3 

ERROR  OCCURED  IN  LOCAL  CHANNLL-2 

N  PROCESSING 

50  1 

DECLARE 

iPSl  4  ( *  )  BYTE  DATACCR.LF, 

1 [Hi 1 4 

DATA  LOCATED  IN  LOCAL  CHANNEL- 3' 

; 

51  1 

DLCLARL 

TPS  1 3 (*  )  BYTE  DATA<CR,LF , 

1  TPS  1 5 

DATA  IS  LC03TB  TO  TXOXTB  TRANSFER 

); 

52  1 

DECLARE 

TPt  160  BYTE  DATAtCR.LF, 

' TPS  1 6 

DATA  IS  LC03TB  TO  LCNTTb  TRAN ST LR 

); 

53  1 

DECLARL 

TPS  1  70  BYTE  DATA(CR,LF, 

1  TPS  1 7 

ERROR  OCCURED  IN  LOCAL  CHANNEL- 3 

N  PROCESSING 

34  1 

DECLARE 

TPt)  80  BYTE  DATA  (CR,  LF, 

•  TPS  1 8 

DATA  LOCATED  IN  LOCAL  CHANNEL-4 1 

; 

35  1 

DLCLARL 

TPS  190  BYTE  DATA(CR,LF , 

• 1P$1 9 

DATA  IS  LC04TB  TO  TXOXTB  TRANSFER 

); 

5b  1 

DECLARE 

il>$20O  BYTE  DATA(CR,LF , 

’ EPS 20 

DATA  IS  LC04TB  TO  LCNTTB  TRANSFER 

); 

57  1 

DLCLARL 

TPJ210  BYTE  DATAtCR.LF, 

' TP12I 

ERROR  OCCURED  IN  LOCAL  CHANNEL-4 

N  PROCESSING 

38  1 

DLCLARL 

IP*220  BYTE  DATA(CR,LF , 

1 TPi22 

ENTERING  ROUTEtOUT  PROCEDURE  '  ); 

39  1 

DLCLARL 

TP1230  BYTE  DATA(CR,LF, 

’ TP*  2  5 

OUTGOING  DATA  IS  IS  LCLCTB'); 

60  1 

DECLARE 

IPS240  BYTE  DATA(bR,LF, 

’ 1PJ24 

DATA  IN  LCOXTB  DESTINlD  FOR  LOCAL 

CHANNEL- 1 ’ ); 

bl  1 

DLCLARL 

f  PJ25  ( *  )  BYTE  DATA  (CR,LF  , 

'  ri’$23 

DATA  IN  LCOXIB  DESTINED  FOR  LOCAL 

CHANNEL- 2’ ); 

62  1 

DECLARE 

IPtl'bO  BYTL  OATA(CR,LF , 

' TP$26 

DATA  IN  LCOXTB  DESTINED  TOR  LOCAL 

CHANNEL- 3’ I; 

63  1 

DLCLARL 

rPi2  70  BYTE  DATA(CR,LF, 

’  TPt  2  7 

DATA  IN  LCOXIB  DESTINED  FOR  LOCAL 

CHANNLL-4 1 ) ; 

b4  1 

OLCLARL 

IPiJdO  BY T L  D A T A i CR , LF , 

’  rp$2U 

LURCH  OC CURED  IN  LCOXTfJ  OU  TtPKOCESS  1  NO’  ) ; 

1 

DECLARE 

TPt 290  BYTL  DATA(CR,LF  , 

’ IPS  25 

OUTGOING  DATA  IS  IN  M fLC TB’  1 ; 

6o  1 

DECLARE 

TPS  50  v  *  )  BYTE  DATA(CK,LF , 

' TPS 30 

DATA  IN  IHLCTB  DESTINED  FOR  LOCAL 

CHANNEL- 1 1 ) ; 

o  7  1 

DECLARE 

IPJ310  BYTE  DATATCR.LF, 
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STATTB  (STAUNBR)  BYTE; 

/*  DECLARAT I ONS  I  OR  FLAGS  AND  TAiii  ES  IN  SYSTEM  MEMORY  */ 

52  1  DECLARE 

I  NT  ERUPT  BYTE.  /*  88/45  INTERRUPT  BYTE  V 

(SPARE1  ,  SPARE2,  SPARE3)  BYTE,  /*  SP/\RE  LOCATIONS  */ 

(TOSHOST,  TOJhOSrtliUSY)  BYTE,  /*  BOOLEAN  FLAGS  */ 

(TCMOSTNS,  TOHOSTNE)  ADDRESS,  /*  TABLE  ADDRESSS  V 

NTLCTB  (PACKET ilABl.E$S  I  ZE )  BYTE,  /*  TABLE  OE  10  PACKETS  V 

(TOtNEI,  TOiNcITSBUSY)  BYTE,  /*  BOOLEAN  FLAGS  V 

( TONETNS,  TONETNE )  ADDRESS,  /*  TABLE  ADDRESSS  */ 

L.CNTTB  (PACK£T$TABLE$S  I  ZE )  BYTE;  /*  TABLE  OF  10  PACKETS  V 

/*  MISCELLANEOUS  DECLARATIONS  */ 

55  1  DECLARE  FORtVER  bYTE; 

34  I  DECLARE  BUSY  LITERALLY  1 OFFH' , 

TRUE  LITERALLY  'OFFH', 

FALSE  LITERALLY  'OOH', 

NMBRIMSK  LITERALLY  '07H', 

CR  LITERALLY  '  ODH ' , 

LF  LITERALLY  'OAH', 

SOURCE  LITERALLY  '12', 

OESTIN  LITERALLY  M6', 

ESC  LITERALLY  'IBM'; 

55  I  DECLARE  DESTINATION  ADDRESS,  /*  DESTINATION  OK  THE  PACKET  */ 

L-EST I  NAT  I  ONt  ADDRESS  BYTE,  /*  OESTIN  ADDR  OF  DATAGRAM  V 
SOURCESADDRESS  BYTE;  /*  SOURCE  ADDR  OF  DATAGRAM  V 

/*  INTERNAL.  VARIABLES  USED  IN  THIS  MODULE  V 

36  I  OECLAKt.  STAR  TUPJHDRl  * )  BYTE  DATAtCH.LF, 

'  UN ! D  II  *2  LOCAL  OS',CR,LF, 

'  VERS  1.1 ,  30  SEP  84 ' ,CR,LF , 

'  EXECUTING  ' ,CR,LF ) ; 

/*  THE  FOLLOWING  TEST  POINTS  ARE  USED  TO  FOLLOW  THL  DATA  WITHIN  THE  UNID  */ 


3/ 

DECLARE 

'  TP$  1 

TPS  1  (*)  BYTE  DATMCR.LF, 

ENTERING  INITSLJTA8  PROCEDURE'); 

38  1 

DECLARE 

'  TP$2 

TPI2(* )  BYTE  l)ATA(CR,LF, 

ENTERING  INI T$U$SHTAB  PROCEDURE') 

30  1 

DECLARE 

'  TP$3 

TP'l 3(  *  )  BYTE  DATA(CR,LF, 

ENTERING  INVINT  PROCEDURE'); 

40  1 

DECLARE 

'  TP*4 

TP$4(»)  BYTE  DATA(CR,LF, 

STARTING  ROU T E S 1 N-ROU T E $ OU T  LOOt" 

41  1 

DECLARE 

'  TPJ5 

TPi'Jl*)  BYTE  DATA(CR,LF, 

ENTERING  ROUTLSIN  PROCEDURE'  ); 

-  4  5 
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/*  DATA  TABLES  USED  iM  THIS  PROGRAM  V 


31 


DECLARE  LC01TB  (DATAJ  TABLESS  I  Li )  BYTE, 
LC01NS  ADDRESS, 

LC01NE  ADDRESS, 

LC01SZ  ADDRESS, 

LC02TB  (DATAJTAt3LE$S  1 ZE )  BYTE, 
LC.02NS  ADDRESS, 

LCOZNE  ADDRESS, 

LC02SZ  ADDRESS, 

I.C03TD  (DATAJ  TAHLEJSIZE  )  BYTE, 
LC03N3  ADDRESS, 

LC03NE  ADDRESS, 

LC05SZ  .ADDRESS, 

LC04TB  (DATAJ  TABLES S I ZE  )  BYTE, 
LC04NS  ADDRESS, 

LC04NE  ADDRESS, 

LC04SZ  ADDRESS, 

TXD1 T8(0ATAJ  TAbLESS I ZE )  BYTE, 
TXOINS  ADORE SS, 

TX01NE  ADDRESS, 

TXUlSZ  ADDRESS, 


1 XOZ  TB( DAI Aj  T  ABLEJS I ZE )  BYTE, 
TX02NS  ADDRESS, 

TX02NE  ADDRESS, 

TX02SZ  ADDRESS, 


TX03 TU (DATAJ  TABLES S I ZE )  BYTE, 
TX03NS  ADDRESS, 

TX03NE  ADDRESS, 

TX03SZ  ADDRESS, 


TX04 IB (DATAJ TABLES SIZE)  BY  TE, 
TX04IIS  ADDRESS, 

IX04NC  ADDRESS, 

TX04SZ  ADDRESS, 

l CM  INS  ADDRESS, 

LCNTNE  ADDRESS, 

LCNTSZ  ADDRESS, 

NTLCNS  ADDRESS, 

NTLCNE  ADDRESS, 

NTLCSZ  ADOKlSS, 
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/*  CC  WHERE  THIS  UN  ID  RESIDES  V 
MAXSCOUN TRYSCODE  LITERALLY  '01', 

/*  INDICATES  COUNTRYSCODES  IN  USE  V 
MAXSNl T WORK  SCODE  LITERALLY  '03'; 

/*  INDICATES  UN  IDS  OPERATIONAL  IN  NET  V 


I4444444444444444444444444444444444444-44444444444444444444/ 

/*  DCF  IN  I  I  IONS  TOR  THE  LOCAL  iLliiAL  INPUT/OUTPUT  CARD  AND  86/12  PPI  */ 


2')  I  OCGLARr.  CNTRLSB255  L I  TLRALLY  ’OCEH',/*  8255  CONTROL  PORT  ON  U6/12  V 

AS  I N  LITERALLY  '0C8ri',  /*  I/O  INPUT  PORT  ADDRESS  */ 

BSOUT  LITERALLY  'GCAH',  /*  I/O  OUTPUT  PORT  ADDRESS  */ 

CSONTRL  L I  IERAI.LY  'OCCIi',  /»  I/O  CONIROL  PORT  ADDRESS  V 

I CW1  S0RS0CW2  LITERALLY  'OCOli',  /*  POfU  ADDRESS  TOR  PIC  V 
lews  LITERALLY  '0C2H',/*  PORT  ADDRESS  TOR  PIC  MODE  V 

RCVSS  TATE  LITERALLY  '00010)100',  /*  MODE  INSTRUCTION  FOR  */ 

/*  825 1  USART  RCV  I  NT  */ 

TKANSSSTATE  LITERALLY  '001 101  I  IB',  /*  MODE  INSTRUCTION  FOR  */ 

/*  8251  RCV  4  XMIT  I  NT  */ 
ROTaTESPRIuRi'  rY$SEr  LITERALLY  '101000000'; 

/*  ROTATES  PRIORITY  */ 

/*  FOR  EQUAL  PRIORITY  TO  */ 
/*  ALL  I/O  PORTS  V 


2o 


/*  ADDITIONAL  GENERAL  DECLARES  NEEDED  FOR  THIS  PROGRAM 


V 

'/ 


DECLARE  BAUDS  LSD  BY  IE, 

BAUOIMSB  BYTE, 

NUMSBY  TESSSEN T  ADDRESS, 
TRANSS 1 SRDY  BYTE, 
TKANSSJSKOY  BYTE, 
TKANSS3SRDY  BYTE, 
I'RANS$4|R0Y  BYTE, 
MSGNUM  BYTE; 


27  1  DECLARE  IlFPIC)  BYTE  I N  IT  I AL  (  '  OOUOOOOOOOOOOOOO 1  ) , 

TEMP2 ( * )  BYTE  INITIAL!' OOOOOOOOODOUOOOO ' ) ; 


8  1  DECLARE 


BY TESSSLNTS I  BYTE, 
BY  TES$S£NT$2  BYTE, 
BYTLSSSENTS3  BYTE, 
BY  TESSSLNI S4  BYTl; 


20  I  ULU.AKE 


BYTE; 


50  1  DECLARE  i.ysPSLRR  ADDRESS; 


/444»4444t44444  444-444*44444444441 


~  •»  1 
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!• 


9  2  END  EXIT; 

10  1  ERROR:  PROCEDURE  (ERRNUM)  EXTERNAL; 

1 1  2  DECLARE  ERRNUM  ADDRESS; 

122  END  ERROR; 

13  1  DECLARE  ACTUAL  ADDRESS; 

14  1  DCCLARE  STATUS  ADDRESS; 

15  1  DECLARE  BUFFER  (128)  BYTE; 

lo  1  DECLARE  RSCONN  LITERALLY  ' 1'; 

17  1  DECLARE  WiCONN  L I 1ERALLY  'O'; 

18  1  DECLARE  ERKNUI-I  ADDRESS; 

19  1  DECLARE  CRLF (*)  BYTE  DATAiODH.OAH) ; 

20  I  DECLARE  MESSACEC)  BY  It  DATACODH,  OAH, 

'THIS  IS  THE  TEST  MESSAGE  THIS  IS  THE  TEST 

MESSACEI ! I ! 1 1 ); 

21  1  DECLARE  ASCI  I (* )  BYTE  DATA( '01 23456789ABCDEF ' ) ; 

22  1  DECLARE  CHANJNUM  ADDRESS; 


23  1  DECLARE 

LJRI SDESTJERR  LITERALLY  'OOOH',  /*  LOCAL  ROUTESIN  ERROR  V 

LiRO$DEST$ERR  LITERALLY  '01 H';  /*  LOCAL  ROUTEtOUT  ERROR  */ 

/*  THE  FOLLOWING  ARE  UNID  DEFINED  VARIABLES  V 
/*  NOTE:  THESE  VARIABLES  MAY  CHANGE  DEPENDING  ON  THE 

SOFTWARE  CONFIGURATION  USED  WITHIN  THE  DELNET  V 

24  I  DECLARE  DATATGRAMSSIZE  LITERALLY  '128',/*  NUMBER  OF  BYTES  FROM  HOST*/ 

PACKETiSIZE  LITERALLY  '133',  /*  DATA  PACKET  +  HEADER  V 

PACKET S$ INSTABLE  LITERALLY  '10', 

ST ATS NOR  LITERALLY  '20',  /*  SIATUS  ENTRIES  IN  STATTU  V 

DATAlTABECiSIZE  LITERALLY  '1280',/*  NUMBR  OF  BYTES  */ 

PACKE  TITAliLESSI  ZE  LITERALLY  '1330',  /*  NUI-BR  OF  BYTES  */ 
TCPtDATASSIZE  LITERALLY  '12',  /*  TCP  DATA  SIZE  */ 

J*  FOLLOWING  ARE  NETWORK  DEFINED  VARIABLES  */ 

/*  NOTES:'..  TH I  S$UNID$NBR  MUST  REFLECT  WHICH  UNID  THIS  IS. 

2.  T  H I  S$COUNTRY$COOE  MUST  REFLECT  THE  AREA  TO  WHICH 

THIS  UNID  IS  LOCATED. 

3.  MAXSC0UNTRY3C00E  WILE  INDICATE  WHICH  COUNTRY  COOES 

ARE  CURRENTLY  OPERATIONAL.  CC^OOOO  15  RESERVED  FOR 
THE  DELNET  MONITOR. 

4.  MAXiNE  1  WORKtCODE  WILL  INDICATE  HOW  MANY  UN  I  OS  ARE 

CURRENTLY  OPERATIONAL  WITHIN  A  PARTICULAR  COUNTRY. 

5.  FOR  DETAILED  INFORMATION  ON  THE  ABOVE  REFER  TO 

PHI  STEP'S  THESIS,  APPENDIX  l).  V 

THISJUNIDtNBR  LITERALLY  '02', 

/*  UNIQUE  ADDRESS  FOR  THIS  UNID  V 
THISlCOUNTRYiCODf  LITERALLY  '0!', 


IT 
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I  SI '>11  Pt/M-bG  V3.0  OGl-t 1  I L  A  r  I  Of!  Of  MODULE  MAIN 
OBJECT  MODULE  PLACED  IN  NEWLOO.OUJ 
COMPILER  INVOKED  BY:  PLMSO  NKWLOO.SRC 

il I  fLE( ’LOCAL  NET WOKK  TESI  PROGRAM,  30  SEP  1984’) 


/»»*** . . . . . .  ..., 

/*  V 
/*  DATE:  30  bep  1984  */ 
/*  VERSION:  1.0  V 
/*  V 
/*  1  I  ILE:  Network  Layer  Simulation  V 
/*  FILENAME:  NEWLOO.SRC  */ 
/»  OWNER:  C.  T.  Childrens  V 
/*  V 

/*  SOFTWARE  SYSTEM:  Intel  Syjtoio  III,  ISIS  II  (V  4.2,  4.3)  V 
/*  USE:  Simulate  the  function  of  the  network  */ 
/*  layer  sof twero  on  the  System  III  */ 
/*  */ 
/*  CONTENTS:  Source  code  listing  V 
/.  »/ 


/....•.........►..............ft...*....*.**.*.**...**....*..*.*.*..*....*. 

PROLOGUE  -  MODULE  L.MAINSU1  DATE  TRANSLATED:  1  SEP  83 

DATE  LAST  MODIFIED:  30  SEP  84 

THE  PURPOSE  OF  THIS  MODULE  IS  TO  PROVIDE  THE  UN  ID  LOCAL 
OPERATING  SYSTEM  (L.OS)  WITH  THE  MAIN  LINE  OE  PROCESSING.  THE  L.OS 
IS  REQUIRED  TO  INPUT  AND  OUTPUT  DATA  FROM  EITHER  THE  FOUR  LOCAL 
CHANNELS  OR  THE  TWO  NETWORK  CHANNELS.  THIS  MODULE  SUPPORTS  THE 
X.2H,  NETWORK  LAYER,  SOFTWARE,  AND  1HE  INTERNET  PROTOCOL  (IP) 
INTERACTION  WITH  THE  HOSTS. 

THIS  MODULE  CONSISTS  OF  THE  MAIN  LINE  PROCEDURE  L.MAINJU1, 

AND  SUBORDINATE  PROCEDURES  BU ILD$ I SPACKET,  DETSADDR,  LDiTABiHSKP, 
SRVC$TAD$HSKP,  TRNMI T$PKf,  ROUTEJIN,  AND  ROUTE  OUT. 

ALL  OF  THESE  ROUTINES  ARE  CONVERTED  F ROM  THE  PL/.T  PROGRAMS 
ORIGINALLY  WRITTEN  HY  CAPT  PAUL  PHISTEk  FOR  THE  ,!-30  UN  I  OS. 

1  MA I N :  DO ; 

2  I  READ:  PROCEDURE  (AFTN,  BUFFER,  COUNT,  ACTUAL,  STATUS)  EXTERNAL; 

3  1  DECLARE  (AFTN,  BUFFER,  COUNT,  ACTUAL,  STATUS)  ADDRESS; 

4  2  END  READ; 

5  I  WRITE:  PROCEDURE  (AFTN,  BUFFER,  COUNT,  STATUS)  EXTERNAL; 

6  2  DECLARE  (AFTN,  BUFFER,  COUNT,  STATUS)  ADDRESS; 

/  2  END  WRITE; 

8  I  EXIT:  Pl-OCt  DURE  EXTERNAL; 


-  3  9 
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INTERFACE  -  THIS  PROCEDURE  IS  CALLED  BY  PROCEDURE  KOUIlJIN 
AND  KGUTLSOUT • 

***«»***lt****»#*t»l»*«»»*»**IIH»tB*tt«»«*#«**»*#*l***«*#*«»*»*»*»*»**»» 

!  .<VCtTAU$HSKP:  PROCEDURE  (  TAB)  ; 

DUX  ARE  IAU  ADDRESS; 

IF  UAU  >-  1  AND  T All  11)  THEN  /*  7  FOR  REAL,  11  FOR  SIM  V 

DO  CASt  TAB; 

;  /*  CASE  Zt.RO  IS  NULL  V 


2'j‘J  4 

?.o0  4 


Do;  /*  CASE  ONE  STARTS  Hi, .2  */ 

LCD  INS  =  LC01NS  +  DATAIOKAMSSIZE; 

IF  ECO! NS  LCOISZ  THEN 
LCOIHS  =  0; 

END; 


l  oo  4 


DO;  /*  CASE  TWO  STARTS  HERE  V 

LC02NS  =  LOO  2MS  +  DATA$GRAM$SI2E; 

IT  L CO 2NS  LC02SZ  THEN 

LC02NS  =  0; 

END; 


Kxi  4 
2o9  4 

2/0  4 

271  4 


LC03NS  =  LCD 3NS  *  D*  TAJ  DRAWS  I ZE; 
IF  LC03NS  >-  LC03SZ  THEN 
LC03NS  =  0; 

END; 


ill  3 


1 7‘3  4 
2  7o  4 


DO;  /*  CASE  FOUR  STARTS  HERE  V 

LC04NS  ■=  LC04NS  +  OATAtGRAMSSIZE; 

IF  LC04NS  >=  L004SZ  THEN 
LC04NS  -  0; 

END; 


III  3 


/»  CASE  FIVE  STARTS  HERE  V 


DO;  /*  CASE  SIX  IS  A  NULL  STATEMENT  */ 

LCNTNS  -  LCNTNS  +  PACKE T$S I ZE; 

IF  LCNTNS  >=  LCNTSZ  THEN 
LCNTNS  =  0; 

END; 

DO;  /»  CAsE  SEVEN  STARTS  HERE  */ 

NTLCNS  =  NTLCNS  +  PAUKETiSIZE; 

IF  NTLCNS  NTLCSZ  THEN 
NTLCNS  -  0; 


/*  CASES  8,  9,  10,  H  FOR  TXOl (2,3,4)  AuL  NOT  RLyUlKEL)  AS  */ 
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/*  THE  TXOXNS  POINTERS  ARE  INCREMENTED  AND  CHECKED  IN  THE  */ 
/*  TRANSMI T  DATAGRAM  ROUTINES  */ 


26B 

3 

DO; 

289 

4 

TXC1NS  =  TaOINS  +  DATASGRAMSS 

290 

4 

IF  TXC1NS  TX01SZ  THEN 

291 

4 

TX01NS  =  0; 

292 

4 

END; 

293 

3 

DO; 

294 

4 

TX02NS  =  TX02NS  *  DATASGRAMSS 

29S 

4 

IF  TX02NS  >=  TX02S2  THEN 

29o 

4 

TX02NS  =  0; 

297 

4 

END; 

r-J. 

CO 

3 

DO; 

299 

4 

TX03NS  =  1X03NS  +  DATASGRAMSS 

300 

4 

IF  TX03NS  >=  TX03SZ  THEN 

301 

4 

TX03NS  =  0; 

302 

4 

END; 

303 

3 

DO; 

304 

4 

TX04NS  =  TX04NS  +  DATASGRAMSS 1 

30b 

4 

IF  TX04NS  >=  TX04SZ  THEN 

306 

4 

TX04NS  =  0; 

507 

4 

END; 

398 

3 

END; 

309 

> 

ELSE  HSKPSERR  =  HSKPSERR  +  1; 

310 

2 

END  SRVCS  TABSHSKP; 

/*»»»»«ft*ft*ft**»lrft»***ft»ft»tt*«-4ft******1tft*«*ft**4***<l**ft*»ft***ft***4*»»*ft*****/ 

/*  PROCEDURE  BUILDS  I SPACKtT  PROCEDURE  FOR  TRANSFORM  I  NO  THE  USER  DATA  */ 


/*  INTO  A  DATASPACKtT  FOR  TRANSFER  TO  THE  */ 
/*  NETWORK  SIDE  OF  THE  UN  ID.  */ 
/*  */ 
/*  TilE  PURPOSE  OF  THIS  PROCEDURE  IS  TO  TRANSFORM  THE  HOST’S*/ 
/*  USER  DATA  DEL  I VERED  TO  ONE  OF  THE  LOCAL  INPUT  BUFFERS  INTO  A  */ 
/*  DATASPACKtT  TO  BE  PLACED  IN  THE  LOCAL  TO  NETWORK  BUFFER.  THIS*/ 
/*  PROCEDURE  ADDS  THE  FIVE  HEADER  BYTES,  AS  FOLLOWS:  */ 
/*  1.1  BYTE  FOR  THE  DESTINATION  ADDRESS.  */ 
/*  2.  1  BYTE  FOR  THE  SOURCE  ADDRESS.  */ 
/*  3.  1  BYTE  FOR  THE  SEQUENCE  NUMBER.  V 
/*  4.  1  BYTE  FOR  A  SPARE  CSPARES01).  */ 
/*  5.  1  BYTE  FOR  A  SPARE  ( SPARE $02 ) .  */ 
/»  */ 
/*  INPUT  -  THIS  PROCEDURE  RECEIVES  AN  ADDRESS  THAT  INDICATES  THE  */ 
/*  LOCAL  INPUT  BUFFER  WHERE  THE  INCOMING  HOST  DATA  IS  */ 
/*  LOCATED.  */ 


/*  PROCESSING  -  THE  PROCEDURE  BEGINS  WITH  THE  F’ASSING  OF  THE  TABLE*/ 
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/*  WHERE  ThE  HOST'S  DATA  IS  LOCATED.  THE  SOURCE  AND  */ 
/*  DESTINATION  ADDRESS  (SOURCES ADDRESS,  DESTINATIONS  V 
/*  ADDRESS)  */ 
/*  IS  SUPPLIED  BY  THE  DETiADDR  PROCEDURE.  FOR  NOW,  THE  */ 
/*  SEQUENCE  NUMBER  AND  BOTH  SPARE  BYTES  ARE  SET  TO  ZERO.  */ 
/*  THE  FUTURE,  THESE  BYTES  WILL  REFLECT  X.2'j  PROTOCOL.  V 
/*  V 
/*  OUTPUT  -  THIS  PROCEDURE  PLACES  THE  FIRST  FiVE  BYTES  INTO  THE  V 
/*  LOCAL  TO  NETWORK  BUFFER  TABLE  BEFORE  THE  PACKET  IS  V 
/*  1UANSI  LRu)  OVER  TO  THE  NETWORK  SIDE  OF  THE  UNID.  */ 
/*  */ 
/*  INTERFACE  -  THE  PROCEDURE  IS  CALLED  FROM  PROCEDURE  ROUTES  IN  FOR*/ 
/*  THOSE  DATA  PACKETS  DESTINED  FOR  THE  NETWORK  ONLY.  */ 
/*  V 
/*  NOTE:  FHE  HlAOER  INFORMATION  SUPPLIED  IS  FOR  DATAGRAM  SERVICE  */ 
/*  ONLY.  Al. SO ,  THE  SEQUENCE  AND  SPARE  BYTES  ARE  SET  TO  ZERO*/ 
/*  TO  ALLOW  THE  UN  1 03  MINIMAL  OPERATIONAL  CAPABILITY.  FOR  */ 
/*  FUTURE  SOFTWARE  ENHANCEMENTS  THIS  MUST  BE  MODIFIED.  «/ 


/*  ft  »  ft  ft  ftft  ft  ft  ft  *  ftft  ft  ftft*  ft*  ******  ft  ft*  ftft*  ftft  ft  *•♦*»«  4  ftft*  It  ft  ft  ft  ftft*  ftftftftftftftftftft  ft  ftftftftftftftftftft/ 

ill  )  BUILDS  I SPACKET :  PROCEDURE ( TABLESP FK )  ; 

312  2  DECLARE  TABLESP FR  ADDRESS, 

Lcoxra  BASED  TABLESP TR I ! )  BYTE; 

313  2  LCNFTtULCNTNE  +  0)  -  DESTINATIONSADDRESS; 

514  2  LCNTTB  (LCNTNcC  +  1 )  =  SOURCESADORESS; 

31 6  2  LCNITl3(LCN TNE  <  2)  =  0; 

316  2  LONTTBfLCN TNE  *31-0; 

31V  2  LCN rTtXLCNTNC  4  4)--  0; 

316  2  CALL  MOVL (DAFASORAMSS I ZE ,  TAbl.tSPfR,  .LCNT TB(LCNTNE«5) ) ; 

310  2  CALL  LOST ABSHSKP(o) ; 

320  2  Fill)  BUILDS  I SPALKET ; 

/**  ft  ftftftftftftftft*  ftftftftftftftftftftftftftftftftftftftftftft  *»ft**ftftft»*«******ft*ft  ftft  ft  ft  ftft  ftftftftftftftftftft*** 

PROCEDURE  DETSADDR  DETERMINES  THE  DESTINATION  OF  DATA  FROM  LOCAL  FIOST 

rill  PURPOSE  OFFHIS  PROCEDURE  IS  VO  DETERMINE  FHE  DESIGNATION  OF  DATA 
COMING  FROM  A  HOST  CONNECTED  TO  LOCAL  CHANNEL- 1 . 

INPUT  -  THE  INPU1  IS  A  TWO  CHARACTER  ASCII  VALUE  INDICATING  FHE  FABLE 
LGCA  T I  UN  OF  1HE  PACKET  TO  F3E  EVALUATED  AND  A  LOCATION  FOR  THE 
DESTINATION  TO  LVE  PLACED.. 

processing  -  the  procedure  first  extracts  the  controls code  from  the 

INCOMMING  DATA  TO  DETERMINE  WHICH  ROUTING  SCHEME  IS  USED.  THE 
COUNTRY SCODE  AND  NETWORKSCOOE  A/EE  THEN  EXTRACTED  TO  DETERMINE 
THE  DATA'S  DESTINATION.  IF  THE  DATA  1$  DESTINED  FOR  THE  NETWORK 
S I F)L  OF  THE  UNID  THEN  DIE  H05TSC0DE  IS  ALSO  EXTRACTED  SO  THAT 
FHl  Ci.STINAT  IONSADDRLSS  CAN  BE  DETERMINED. 
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OUTPUT  -  THIS  PROCEDURE  PLACES  THE  DESTINATION  CLN’  OR  'Ll.’)  IN 

MEMORT  TOR  THE  PASSING  ROUTINE  AND  IT  RETURNS  THE  DESTINATIONS 
ADDRESS.  AN  EXAI4JLE  OE  A  Dt  ST  I  NAT  I ONSADDRESS  IS  21,  WHICH 
INDICATES  UNlD=2  AND  CHANNEL- I . 

INTERFACE  -  THIS  PROCEDURE  IS  CALLED  BY  PROCEDURE  ROUTES  IN. 

NOTES:  1.  BYTE  AND  01 H  WILL  MASK  OUT  THE  UPPER  4-BITS. 

2.  BYTE  AND  OEOH  WILL  MASK  OUT  THE  LOWER  4-BITS. 

5.  BYTE  /  0! H  WILL  RETURN  A  VALUE  0-15  FROM  THE  LOWER  4-BITS. 
4.  BY  I l  /  I  OH  WILL  RETURN  A  VALUE  0-15  FROM  THE  UPPER  4-BITS. 


I 


52  I  1  UL T SAPOR;  PROCEDURE ( TABLE SHIR) ; 


*• 


525 
524 
5  28 
5  2b 

52  7 

528 

529 
550 
531 

53  2 
553 
154 
5 15 
55o 
5  57 

558 

559 
540 
341 

542 


DECLARE  LOGITS  BYTE, 

HIBITS  BYTE, 

CONTROLSCODE  BYTE, 

COUNTRYSCOGE  BYTE, 

NETWORK JCODE  BYTE, 

HOSTSCODE  BYTE, 

SRCSHOGTSCOOE  BY  ft', 

SRCSNETSCOOE  BY  IE, 

SRCSCON ISCODE  BYTE, 

SRCSCONTRY SCOOE  BYTE, 

TABLESPTR  ADDRESS, 

LCOXTB  BASCD  TABLE SPTR (1 )  BYTE; 

LOBITS  “  0; 

HIBITS  =  0; 

CONTROLS CODE  =  0; 

COUNTRYSCOUE  =  0; 

NETWORKSCODE  »  0; 

HOSTSCODE  -  0; 

DEST I NATI ONSADDRESS  0; 

SOURCES AD DRESS  =  0; 

DESTINATION  8; 

CONTROL SCOOE  =  LCOXTB(IG)  AND  OFH; 

IF  CONTROlSlODE  -  00  THEN 
DO; 

COUNTR f JCOoE  =  (ROK (LCOXTB ( 16),  4)  AND  OFH); 

IF  COUNTRYSCOUE  =  TH I SSCOUN TRYSCODE  THEN 
DO; 

NE I WORKSCOOE  =  LC0XTBU7)  AND  OFH; 

IF  (NETWORK SCOOE  <=  MAXiNETWORKSCOOE )  THEN 
DO; 

IF  (COUNTRYSCOGE  <>  THISSCOUNTRYSCOOE)  OR 

( (NETWORK$CODC)<>  TH  I  SSUN IDSNBR)  THEN 
DESTINATION  =  6;  /*  LOG  TO  NET  V 

LLSE 


H  -  5o 


AJtfc »'wV.V.  Vi  Till 
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380  8 


DESTINATION  =8;  /»  LOC  TO  LOO  V 

LOBITS  =  (ROR(LCOXrB(l7),  4)  AND  OFH ) ; 

DIBITS  -  (ROL (l.COXTb(  18) ,  4)  AND  OFOH); 

HOSTiCODE  -  LOBITS  OK  HI  BITS; 

IF  (HOSTiCODE  >-0)  AND  (NOSTSCOOE  63)  THEN 
BEST  i  NAT  I  0N$ ADDRESS  -  ICTWOKKiCOOE  OR  i  OH; 

ELSE 

IF  (HOSTiCODE  >-o4 )  AND  (HOSTiCODE  12  7)  THLN 
Dt S T I NA T I ONSADOKE SS  =  NETWORK $CODE  OR  20H; 

ELSE 

IF  (HOSTiCODE  >-  128)  AND  (HOSTiCODE  <=  191)  THEN 
DE ST  I  NAT  IONS ADDRESS  =  NETWORKtCODE  OH  30H; 

ELSE 

IF  (HOSTiCODE  >=  192)  AND  (HOSTiCODE  <-'258>  THEN 
DEST I  NAT  I ONiADDRE SS  =  NETWORKiCOOE  OR  40H; 


CALL  SNDSEVt .TPJ53A,  SIZE! TP$33A) ) ; 
SrAFTB(04)  =  STATTB(04 )  +  1; 
STATTB(OO)  =  STATTB(OO)  +  1; 


DO;  f*  HOT  FOR  THIS  COUNTRY,  StND  TO  NETWORK/ UN  ID  0  */ 
CALL  SNUSE'Q( .  TPI53B,  S I  ZE‘ (  TP$5>3B ) ) ; 

STATIb(03)  -  S TAT  TH  (0:3)  +  I; 

STATTBIOO)  •  SIATTbCOO)  +  1; 


IT  IS  AT  THIS  POINT  THAT  OTHER  IP  CON  TROL  CODES  WILL 
BE  INCORPORATED  INTO  THE  NETWORK  »/ 


8c  9 

3 

CALL  SNOSLv(. |P$33C,  SIZE! TPtsiC 

3  70 

3 

S TAT TB(02 )  ^  SIATTB(OZ)  +  1; 

371 

3 

STATTB(OO)  -  STATTo(OO)  t  1; 

3  72 

3 

END; 

3  73 

) 

CALL 

SNDSEVl .  IPi‘>|l3>  s |  ZE  ( Tr’iSIBl ) ; 

3  74 

2 

CALL 

HE X $ ASC (CONTROL icODE ,  0) ; 

3/S 

2 

CAlI. 

SNDSCyi  .TEMPI  ,  2); 

3/o 

2 

CALL 

SNDCEvl*  IPiSlC,  SIZLl  TPiSIO); 

3  7  7 

2 

CALL 

1 ILX i ASC ( COUNIR Y i CODE ,  0) ; 

3  73 

4 

CALL 

SNDSECK. TEMPI  ,  2); 

5/9 

2 

CALL 

SNDSEQ ( .TF’iS  1  A,  S 1 ZL  (  Tl'tS  1  A) ) ; 

330 

2 

CALL 

HEAiASC( NETWORK iCODE,  0); 

3U 1 

2 

CALL 

SNLSEV(.TEff,l ,  2); 

53  2 

i 

CALL 

SHDSEQI . TPiSl D,  SIZE( TPiSlD)); 

3b  3 

2 

CALL 

HLXJASCfLOBI TS,  0); 

3u4 

> 

CALL 

SllDSEQU  TEMPI  ,  2); 

H  -  8  7 
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589  2  CALL  SNDSE0(.TPS5IE,  SIZEITPS5IE) >; 

5 bo  2  CALL  HEX* ASCtHI BITS,  0); 

58  7  2  CALL  SNDSDJt .  TEMPI  ,  2); 

588  2  CALL  SNDSEQ(  .TPS52A,  SI ZE( TPS52A) ) ; 

589  2  CALL  HEXSASCtHOSTSCODE,  0); 

590  2  CALL  SNDSECH.  TEMPI ,  2); 

591  2  CALL  ShiOSEQ(.TP$52,  SI ZE ( TPS52) ) ; 

592  2  CALL  HEX  t  ASC ( Dt  S  T I  MAT  I  ON S ADORE SS ,  0); 

595  2  CALL  SNDSEO< .  TEMPI ,  2); 


594  2 

595  2 

596  5 
59  7  5 

598  5 

599  4 

400  4 

401  4 

402  4 

40  5  4 

404  4 

405  4 

406  4 

40/  4 

408  4 

409  4 

41  1  4 

412  4 

415  4 

414  5 

415  4 

416  t 

417  4 

418  4 

4 1 9  4 


If  UtSl  I  MAT  I  ON  -  o  THEN  /*  LOC  TO  NET,  GET  SOURCE  INTO  V 
00; 

SRC$NET$CODE  =  LC0XTBU3)  AND  OEH; 

IF  (SRCSNETSCODE  <=  MAXSNETWORKSCOOt )  THEN 
00; 

LOB  I  T  S  =  ( ROK  t  LCOXT  B  ( 1  3 ) ,  4)  AND  OFH ) ; 

H1BITS  *  (ROLtLCOXTB(M),  4)  AND  OFOH); 

SRCSHOSTSCODE  =  LOB  ITS  OR  HIBITS; 

IF  (SRC$HOST$COOE  >=0)  AND  (SRCSHOSTSCODE  <=  65)  THEN 
SOURCES ADDRESS  =  SRCSNETSCODE  OR  1 0H; 

ELSE 

IF  ( SRCSHOSTSCODE  >-64)  AND  ( SRCSHOSTSCODE  <=  127)  THEN 
SOURCE SADDRESS  =  SRCSNE TSCODE  OR  20H; 

ELSE 

IF  ( SRCSHOSTSCODE  >  =  128)  AND  ( SRCSHOSTSCODE  <  =  191) 
THEN 

SOURCESaDDRESS  -  SRCSNETSCODE  OR  50H; 

ELSE 

IF  (SRCSHOSTSCODE  >=  192)  AND  (SRCSHOSTSCODE  <=255 ) 
THEN 

SOURCESADDRESS  -  SRCSNETSCODE  OR  40H; 

CALI.  SNDSEQt  •  TPS52B,  SIZE(TPS52B) ); 

CALL  HEXSASC (SOURCESADDRESS,  0); 

CALL  SNDStQf  .TEMPI ,  2); 

END; 

ELSE 

DO; 

DESTINATION  =  8; 

CALL  SNDSEOl .TPS53AA,  SIZE( TPS55AA) ) ; 

SI  AT  IB (04)  =  3 [AT  TB (04 )  +  1; 

STATTB(OO)  =  STATTB(OO)  +  1; 

END; 


420  3 


END; 


421  2  END  DETSADOR; 

/#»**##***##-*  *  •  ft  **!**##*  **»«***•  **#»*»*«  ***#**»»#*)HMl  tfrft »•*«**»#*«  *###»*#*# 

PROCEDURE  DETSAODKSNL  UE  TERMINES  THE  DESTINATION  OF  DATA  FROM  THE  NETWORK 


Hit  PUKPUSE  OF  THIS  PROCEDURE  IS  10  DETERMINE  THE  DESTINATION  OF  DATA 
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coming  prom  the  network  side  of  the  unid  to  a  local  holt. 

INPUT  -  THE  INPUT  IS  AN  ADDRESS  VALUE  INDICATING  THE  TATTLE  LOCATION  OF 
THE  DATA  TO  BE  EVALUATED. 

PROCESSING  -  THL  PROCEDURE  EXTRACTS  THE  DES T I NAT I ONt ADDRESS  FROM  THE 
SECOND  BY  IE  OF  THE  DATA  PACKET  AND  RETURNS  THE  CORRESPONDING 
DESTINATION. 

OUTPUT  -  I'HIS  PROCEDURE.  RETURNS  THE  DESTINATION  (1,2,3,  OR  4)  OF  THE 
DATA  COMING  FROM  THE  NETWORK  TO  A  LOCAL.  HOST. 

INTERFACE  -  THIS  PROCEDURE  IS  CALLED  BY  PROCEDURE  ROUTES  IN. 

NOTES:  1.  BYTE  AND  07H  WILL  MASK  OUT  THE  UPPER  5-3ITS. 

.  *  it..****.*.*. 


432 

1 

l)L I SADDKtNE :  PROCEDURE  BYTE  ; 

423 

'  > 

DECLARE  port  byte. 

BUS  BYTE; 

4  24 

2 

BITS  -  (KOR(NTLCTBINTLCNS),  4)  AND  OFH); 

425 

2 

IF  <61 TS  >=  1  AND  BITS  ^  4)  THEN 

426 

2 

DO  CASE  Ui TS; 

42/ 

3 

» 

423 

3 

PORT  =  I; 

429 

3 

PORT  =■  2; 

4  50 

3 

PORT  *  3; 

431 

3 

TORT  -=  4, 

432 

5 

END; 

ELSE 

43  5 

-> 

C 

o 

4  54 

3 

PORT  -  B; 

43^ 

3 

STATTBiOl)  =  STATTB(OI)  +  1;  /*  INCREMENT 

4  To 

3 

END; 

4  37 

n 

RETURN  PORT; 

4  5U 

2 

END  DE  l  SADDiUnL  ; 

. . . . 

PROCEDURE  MOVESLL  ROUTE  OUT  EITHER  A  UAIASPACKET  OR  HOST  DATA 

THE  PURPOSE  OF  IHIS  PROCEDURE  IS  TO  KOUIL  PACKE I S  FROM  THL 

LOCAL  TO  LOCAL  AND  NETWORK  TO  LOCAL  TABLES  TO  THE  CORRECT 
GU  TPU  T  CHANNEL . 


INPUT  -  DA  I A  PACKETS  ARE  ROUTEU  VIA  EVALUATION  OF  LCLCTB  AND 
NTLCTB  ACDKESSS  AND  INTERNAL  PACKET  ROUTING  INFORMATION 
PROCESSING  -  THL  PROCEDURE  CHECKS  EAUI  INPUT  BUFFER'S  ADDRESSS 
FIX  PACKET  .ARRIVAL.  IF  A  PACKET  IS  READY,  NIL  DESTINATION 
IS  DETERMINED  via  PROCEDURE  UDJAUUK,  AND  TRANSMITILD 


H  -  5  9 
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or  St  T I  I  No  THE  TRANSMIT  INTERRUPTS  THROUGH  PROCEDURE 
TRNMI TtPKT .  THE  TABLE  THAT  WAS  SERVICED  (PACKET  REMOVED) 

HAS  ITS  ADDKESSS  UPDATED  BY  SfiVC$TAB$HSKP.  WHEN  THE 
T  RAME  IS  TRANSMITTED  TO  THE  HOSTS  FROM  THE  NE I  TO  LOCAL 
BUFFER  TABLE,  THE  FIRST  TWO  BYTES  OF  HEADER  INFORMATION 
ARE  STRIPPED  OFF  BEFORE  TRANSMISSION. 

OUTPUT  -  A  PACKET  OF  DATA  IS  PREPARED  FOR  TRANSMISSION  AND  THE 
INTERRUPTS  ARE  SET. 

INTERFACE  -  THIS  PROCEDURE  IS  CALLED  IN  AN  INFINITE  LOOP  BY  Rif. 

MAIN  PROGRAM. 

*«*»**. «****»/ 

459  1  MOVEiLL:  PROCEDURE ( TABLE  SPTR ,  PORT); 

440  4  DECLARE  PORT  BYTE, 

TABLE $PTR  ADDRESS, 

LCOaTB  BASED  TABLE tP TR( 1 )  BYTE; 


441  2  IF (PORT  >-  1  AND  PORT  4)  THEN 

442  2  00  CASE  PORT; 


443  3 


/*  CASE  ZERO  IS  NULL  */ 


444  3 

449  4 

447  b 

448  b 

449  S 

4  SO  b 
4-j1  4 


DO;  /*  CASE  ONE  V 

IT  TRANS! 1 $RDY  =  TRUE  THEN  DO; 

CALL  SN0SEQ( .TPS24,  SIZE( TP$24) ) ; 

CALL  MOVE  (QATAiGRAMSSI ZE ,  TABLEiPTR, .TX01 TB(TX01 NE ) ) ; 
CALL  LO! IA(UHSKP(S7; 

END; 

END; 


4  b  2  5 
433  4 

A?>  b 
4 -.6  b 
4b  7  3 


DO;  /*  CASE  TWO  V 

IF  TP.ANS$2tRDY  =  TRUE  THEN  DO; 

CALL  SNOSEQt. TPJ25,  SIZE(TP$25) ) ; 

CALL  MOVE ( UATAIGKAMSS I ZL ,  TABLEtP TR,  .TX02 TB( TX02NE ) ) ; 
CALL  LD!TAli$HSKP(9) ; 


438  b 
4  by  4 


END; 

l.NO; 


4o0  3 

461  4 

4  &  3 

464  b 
4ob  b 
4  Do  b 
46  /  4 


DO;  /*  CASE  THREE  */ 

IT  TRANS!3tRDY  -  TRUE  THEN  DO; 

CALL  SNDSEQ(.TPi26,  SlZE(TP$26)); 

CALL  MOVE(DATAVXAM$SIZE,  TAbLESPTR,  .TX03TB(TX03NE) ) ; 
CALL  LDlTAUiHSKP( 10); 

END; 

END; 


4b8  5 

469  4 

471  b 
1/2  b 
4/5  b 
174  b 


DO;  /*  CASE  FOUR  V 

IT  TKANS$4tRDY  TRUE  THEN  DO; 

CALL  SNDSEQl . TP$27,  S I Zl ( f P$ 2 7 ) ) ; 

CALL  MOVE (OATA!ORAM$S I ZE ,  TABLEJP  TR,  . TX04TB( TX04NE ) ) ; 
CALL  IG$TAB$HSKP(1  1  ); 
tNU; 


H  -  6  0 


In 


•'-t  -*  -r 


•■j.  •-  1- 


--- 


-1 

-'I 
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4  I'j 

4 

END; 

_ 

4  76 

3 

END;  /*  END  CASE  V 

4  77 

2 

ELSE  DO; 

4  76 

3 

CALL  SNDSEOL .TPI28,  S 1 ZE ( TPI28) ) ; 

>•.  -  ■ 

4  79 

3 

STArra(L$RO$OESTiEKR)  =  STATTB(LiRO$DEST$ERR )  +  1; 

460 

3 

END; 

*■ 

401 

2 

END  MOVEtLL; 

PROCEDURE  MOYLJNL 

THIS  PROCEDURE  MOVES  A  PACKE T  OF  INFORMATION  FROM  THE  NTLCTB  INTO  ONE 

OF  THE  FOUR  TABLES  TO  THE  HOST.  DESTINATION  ADDRESS  IS  AN  INPUT 
PARAMETER  TELLING  WHICH  HOST(PORT)  THE  PACKET  SHOULD  BE  ROUTED  TO. 

CALLED  BY  ROUTEJIN 

**##**  «*«***»  *»»*»#*#»*#»»»*-*-*»»»••»*»**«-»**»•#»***»•»•****•»»**«  <»*«»*»»/ 

\ 

462 

i 

MOVESNL:  PROCEDURE (PORT ) ; 

403 

2 

DECLARE  PORT  BYTE; 

4d4 

2 

IF  (PORT  >=  1  AND  PORT  4)  THEN 

436 

2 

DO  CASE  PORT; 

• 

486 

3 

* 

~  ' 

487 

3 

DO; 

- 

438 

4 

CAi-L  MO VE ( DA TA$GRAM$ S 1 2E ,  .NTLCTBtNTLCNS  +  9), 

•  TX01 TB(TXOINE) ) ; 

4o9 

4 

Call  SNDSEQ(.TP$30,  SU£(TP$30>>; 

490 

4 

CALL  LD$  TAB$HSKP(8) ; 

- 

491 

4 

END; 

492 

3 

DO; 

493 

4 

CA.-L  MOVUDATAJGRAMiSIZE,  . NTLCTB (NTLCNS  +  5), 

.TX02TB(TX02NE) ) ; 

494 

4 

CALL  SNDSEQC . TPJ31 ,  SI Zt (TPS31 ) ) ; 

-  -  -4 

499 

4 

CALL  LD$TAb$HSKP(9) ; 

• 

496 

4 

END; 

497 

3 

DO; 

490 

4 

CALL  MOVE (DATASORAMSS 1 ZL ,  .NTlCIBCNTLCNS  +  3), 

t  1 

.TX03TB(TX03NL) ); 

499 

4 

CALL  3NDSL J( . TPS32,  SI  ZLUPS32) ) ; 

300 

4 

CALL  LDJTAB$HSKP(IO); 

901 

4 

END; 

302 

3 

DO; 

303 

4 

CALL  MOVE (DATAJGRAMJS 1  EE ,  .NTLCTbtNTLCNS  +  3), 

-  *  •  — 

.TX04TB(TX04NL ) ) ; 

. *  « 

H  -  61 
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v". 


504 

4 

CA1-L  SNOSEi}(.TPS33>  SIZE(TPS33> ) ; 

SOS 

4 

CALL  LDS TAUSHSKPl 11); 

50o 

4 

END; 

90/ 

3 

END; 

ELSE 

5G8 

- 

CALL  SNDSCgt .TPS 34 ,  S 1 ZE (TPS34) ) ; 

0U4 

2 

END  MOVE'  iNL ; 

/«*»«»»  *«*«*»»«»*»**►#*»«*#*«»<*  »►♦**•««*««**»*»*»******«*»#**  *#**»»» 

PkOCLDUHL  routes  in  routes  in  either  dataspackets  or  host  data 

THE  PURPOSE  OP  THIS  PROCEDURE  IS  TO  EITHER  ROUTE  HOST  DATA 

PROM  THE  FOUR  LOCAL  INPUT  BUFFERS  TO  THEIR  CORRECT  OUTPUT 
BUFFER  OR  ROUTE  DATASPACKETS  FROM  THE  NETWORK  SIDE  OF  THE  UN  ID 
TO  THEIR  CORRECT  OJTPUT  LOCAL  BUFFER  MINUS  THE  DATASPACKET 
HEADER • 

INPUT  -  HOST  DATA  OR  DATA  PACKETS  ARE  ROUTED  VIA  EVALUATION  OF 
LCXXTB  AODRESSS  AND  INTERNAL  PACKET  ROUTING  INFORMATION. 

PKOCESSENG  -  THE  PROCEDURE  CHECKS  EACH  OF  THE  LOCAL  INPUT  BUFFER'S 
AODRESSS  FOR  HOST  DATA  ARRIVAL.  IF  ANY  HOST  DATA  IS  READY, 

THE  DESTINATION  IS  DETERMINED  VIA  PROCEDURE  DETSADDR.  ONCE 
THE  DESTINATION  IS  DETERMINED  THEN  THE  DATA  IS  EITHER  SENT 
TO  A  LOCAL  BUFFER  (LOCAL  TO  LOCAL  TRANSFER)  VIA  PROCEDURE 
MOVSEG  OR  THE  HOST  DATA  IS  CONVERTED  INTO  A  DATASPACKE T 
(BUILDS  I SPACKLT)  THEN  SENT  TO  THE  NETWORK  SIDE  OF  TIE  UNID 
VIA  MOVSEQ.  BOTH  THE  BUFFER  TaBLE  THAT  IS  LOADED  AND  THE 
TABLE  IHAT  IS  SERVICED  HAVE  THU;?  AODRESSS  HOUSECLEANED 
BY  LDSTAlSHSKP  AND  SRVCSTABSHSKP. 

OUIPUT  -  EITHER  A  DATA t PACKET  OR  HOST  DATA  IS  MOVED  TO  AN 
APPRGPK I  A TE  DESTINATION  BUFFER. 

INTERFACE  -  THIS  PROCEDURE  IS  CALLED  IN  AN  ENDLESS  LOOP  BY  THE 
MAIN  PROGRAM 


j !  0 

1 

ROUIESIN:  PROCEDURE; 

51  1 

i 

IF  l  <  (EOiINE  -  L  COINS)  DATASGRAMSSIZE)  OR  (LCOINS  >  LCOliC) )  THEN 

5 1  2 

DO; 

R  1  3 

5 

CALL  SNDSEvl • TPi6,  SIZE(TP$6) ); 

914 

3 

CALI  DE 1 SADDR ( .LC01 TB(LCOINS)); 

51  9 

if  DESTINATION  -  9  THEN 

Sir, 

3 

UO; 

51  7 

4 

CALI.  SNDSEgi  .TPS  7,  SIZE  (TP*  7)); 

•■IB 

4 

CALL  MOVL$LL( .LCOI TB(LCOINS) ,  <  ROR ( DE  S  T 1 N A  T 1  ON  $ ADORE  S  S ,  4) 

AND  OF  H  ) ) ; 

S  1  ) 

4 

END; 

EL  RE 

9/0 

J 

IF  IT  Si  1  NAT  1  ON  -  o  THLN 

H  -  62 


.  -vCv 
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AC!  3 
3/2  4 

323  4 

324  4 

323  3 

526  4 

527  4 

526  4 

520  3 

530  3 


DO; 

CALL  SNDSEQT  .TP$U,  SIZEUPS8) ) ; 

CALL  BUILDtltPACKETT.LCOI  TBTLCOINS)); 

END; 

ELSE 

DO; 

CALL  SNDSEQT. TP$9,  SIZETTPS9)); 

S1ATTBTL$RI$DEST$ERR>  =  STATTBTLSRI  $DEST$ER.\)  +  1; 
END; 

CALL  SRVCSTABSHSKPT1); 

CND; 


331  2 

532  2 

535  5 

534  3 

535  3 

536  3 

537  4 

333  4 

539  4 

540  3 

541  3 

542  4 

343  4 

344  4 

545  3 

546  4 

54  7  4 

346  4 

349  4 

530  4 

35!  4 

532  4 

55  5  t 

534  4 

533  3 

356  3 


If-  T  <  (LC02NE  -  LC02NS)  0ATASGRA,4$SIZE)  OR  CLC02NS  >  LC02NE) )  THEN 
DO; 

CALL  SNDSEQT . TPS  10,  S 1 ZET  TPS  10)  > ; 

CALL  DET$ADDR( .LC02TBTLC02NS) > ; 

IF  DESTINATION  =  5  TilEN 
DO; 

CALL  SNDSEQT.TPSII,  SI ZE TTPS I  1 ) ) ; 

CALL  MOVE$lLT.l.C02T6(LC02NS),  ( ROR (DE  S  T I NAT  I ON$ADORCSS ,  4) 

AND  OFH ) ) ; 

END; 

ELSE 

IF  DESTINATION  ^  6  THEN 
DO; 

CALL  SNDSEQT .TPSI 2,  Si ZE (TP$ 1 2) ) ; 

CALL  BU I lD$ I SPACKE T ( .LC02TB (LC02NS ) ) ; 

END; 

ELSE 


DO; 

CALL  SNDSEQT. TPS  13,  St ZL ( TPS 1 3) ) ; 

CALL  SNDSEQT. TP$51,  SIZLTTPJ5) ) ); 

CALL  HEXSASCTLOWTDESl I  NAT  I  ON ) , 0 ) ; 

CALL  SNDSEQT.  TE14P1 ,  2); 

CALL  SNDSEQT . TPJ52,  SIZE l TPS52) ); 

CALL  HEXSASCTDESTINAT I0N$ADDRESS,0) ; 

CALL  SNDSEQT .TEMPI ,  2); 

5 TAITBTLSRI SDESTSEKR)  =  STATTBTLSRI  JDESULRR)  +  1; 

END; 

CALL  SKVCS  TAbtilSKPCZ) ; 

END; 


5  3  /  2 

556  2 

559  5 

560  5 

5ol  3 
56  2  3 

5u3  4 

jo4  4 


IFTTTlCOjNL  -  LC03NS)  >=  OATASOKA{4SS  I  ZE )  OR  TLC03MS  >  LC03NL )  )  THEN 
DO; 

CALL  SNDSEQT. 1PS14,  S I ZLT 1PJ 14)); 

CALL  OL  TiADDRT .LCO3TBTLC03NS) ) ; 

IT  DESTINATION  -  5  THEN 
Dd; 

CALL  SNDSEQT. TPS  I  5,  SI ZET TPJI5) ) ; 

CALL  rtOVESLLT.LCG3TDTLCOj>NS),  ThORTOLSTINATIONSADDRESS,  4) 

AND  OFH)); 


/M-8U  COMPILER 


LOCAL  NLlwOKK  TEST  PROGRAM,  30  SEP  1981 


So3  4 


'.’GO  5 

•ho'.'  5 

3od  4 

;ju9  4 

3  70  4 

8/1  8 

•)  72  4 

3/3  4 

8  /  4  1 

•>  78  3 

8  /c  J 


END; 

ELSE 

if  destination  -  c  then 
00; 

CALL  SNDSEQ(.TPS16,  SI2E (TPS1 6) ) ; 

CALL  BUILDS  I  SPAQSE f  (  .LC03T  b (LC03NS ) ) ; 

END; 

ELSE 

DO; 

CALL  SNDSLQ ( .TPS  I  7,  S. I ZE  (  TPS  17)); 

STATTblLSR  I  SUES  FILAR)  -  STA  T  TB  (L$R  I  SDESTSERIO  *  1; 
END; 

CALL  SIEVES  I  AbSMSKPl 3) ; 

END; 


877  .7 

■)  7  S  2 

3  /  9  3 

8  AO  3 

3  J 1  5 

382  3 

3d  3  4 

334  4 

3  CL  4 

386  3 

Srt/  5 

3d  a  4 

3d  3  4 

3  90  4 

391  3 

392  4 

0  5  4 

394  4 

39?  3 


I F ( <  (I.C04NL  -  LC04NS)  >=  DAFASGRAMSS I ZE )  OR  (LC04NS  >  LC04NE ) )  THEN 
DO; 

CALL  SNDSLQt . TPS  1 8,  S I ZE ( TPS 1 b) ) ; 

CALL  DETSADDR  ( .LC04  rt3(LC04NS) ) ; 

IF  DESTINATION  =  5  THEN 

00; 

CALL  SNDStQT  .THS  1 9,  Si Zti  IBS  19) ) ; 

CALL  MGVE$LL(.LC04ru(LC04N3),  (R0R1DEST  I  NAT  ION'S  ADDRESS,  4) 

AND  OFH ) ) ; 

DO; 

ELSE 

IF  DESTINATION  “  o  THEN 
DO; 

CALL  dNDStge. TPS20,  S I ZE ( TPS20 ) ) ; 

CALL  BUILDS  I SPACKETI .LC04TD(LC0  INS) ) ; 

LND ; 

LL  St 
DO; 

CALL  SNDStvl .TPS21 ,  S I  CL ( IPS 21)); 

SEAT  Ta(L  SR  I  SDL  SI  SLRtO  ^  3  TAT  I  B(L$i<  I  SDES  TSLHR)  +  1; 

END; 

CA1.L  SKVCSl AbiH3KP(4) ; 

LND, 


39/  2  if  ilNlLCNL  -  NI'LCNS)  >*  iMCKE  I SS I  ZE )  a!  (NTLCNS  >  NTLCNE )  THEN 

89tj  .  DO; 

3  99  '■  DCS  1 1  NAT  I  ONSADDRES 3  =*  DeTTS  ADDRtNL; 

DO"  ’>  CALL  MOVE  SnL  (uES  T I  NAT  I ONS ADDRESS) ; 

oJl  5  CALL  SKVC$TAIiSllSI\P(7); 

cc.  1  END; 


605  2  END  ROUTES  IN; 


RiMOLDUkL  SEKVICLSLOOP 


II 


o  4 


PL.'M-UO  CDRPILEK 


LOCAL  riL  fWOKK  1E3F  RKGORAM,  3 0  LLP  !9B4 


PURPOSE 

TURNS  A  r  KAI4E  AROUND  AT  THE  NE  f  WORK  LAYER.  THE  SOURCE  AND 
be.  S  T I NA I  1  ON  AU  DHL  OSLO  ARE  SWITCHED  AND  THE  PACKET  I  S  PUT  INTO  THE 
NE I  WORK  LAYER  IABLl • 


I NIEKEACE 


CALLED  BY  MAIN  PROGRAi-1. 


»***+*innnnm****)t*fr*)H(***#**#»*JHnn»****jm-fr****itmt*fc-*fc.' 


SLKV  ICE$LOOP:  PROCEDURE ; 

DECLARE  INDE/,  ADDRESS; 

IF  ((LCHTNE  -  ECNTNS)  PACKETS  SUE)  OR 

(lCNINS  >  LCNTNE)  THEN 
DO; 

CALL  SNOSEQT . TPj 40,  S!ZE( TPS40) ); 

NTLCmtNTLCNC  +  0)  -  LCNTTBILCNTNS  +  1); 

NILCTIKNTLCNE  F  1)  =  LCNTTB(LCNTNS  +  0);/*SWAP  PACKET  HEADER*/ 
DO  INDEX  -  2  TO  (PACKETiSI/.E  -  I);  /*  SwAP  DATA  */ 

N  TEC  I  U<  NT  LONE  +  INDEX)  -  LCN T TblLCNTNS  +  INDEX); 

END; 

DO  INDEX  -  0  TO  3;  /*  SWAP  IP  DEST  1  SOURCE  V 

NTLCTBTNTLCNL  +  INDEX  +  IV)  =  LCN TTBILCNTNS  +  INDEX  +  21); 
NTLCTBTNTLCNE  +  INDEX  +  21)  =  LCNTTBILONTNS  +  INDEX  +  17); 

END; 

CALL  Lb$  TABthSKP( 7 ) ; 

CALL  SRVC$TA(3$HSKP(6)  ; 


END  SEKV  I  CEiLOoP; 

procedure  load  and  reads tab 

I  HE  SE  PROCEDURES  ARE  USED  TO  PUT  A  .MESSAGE  INTO  THE  LCNTTB  TABLE  AND 
WK I  IE  TO  THE  CRT  A  MESSAGE  IN  THL  N1LCTB  TABLE. 


LOAD:  PrOCEDUkE (CHANtPTR,  DESTiUNID,  DESTiHOST); 

DECLARE  (INDEX,  CHANiPIR)  ADDRESS; 

DEa.AiiE  (DESTIUNID,  DESTiHOST)  BYTE; 

DECLARE  LCOXTD  uASlD  CHAnSPTKU)  BYTE; 

DO  IliUe.X  -  U  TO  (DATASuRAMiSI.’E  -  I); 
LC0XTB( INDEX)  -  '*'; 

END; 


/*  IP  SOURCE  HEADER  V 

LCUXTLX  12)  *  I  OH;  /*  CC  -  I,  CT  ■=  0  V 

LCOXTBl  13)  =  ( THI SiUNICiNBK  AND  OFH)  OR 

(ROL  (LOW  (CHAN$NUI4*S6 ) ,  4  )  AND  OFOH); 
/*  HC(l  )  -  6,  NO  -  2  V 


M 


FL/M-80  CONP  HER  LOCAL  NETWORK  TEST  PROGRAM,  2  OCT  1984 


26  1  DECLARE  TP!8<*)  BYTE  DATA(CR,LE, 

'TP!8  Entering  forever  I  cop  I1); 

27  1  DECLARE  MSG1 (*)  BYTE  DATA (CR,LF , 

'Do  you  want  TR/TA  handshake  (Y/N)  INI  ?'); 

28  1  DECLARE  MSG2I*)  BYTE  DATA(CR,LF, 

'Which  channel  (1,  2,  3,  4)  Ill  ?'): 

/*  THE  FOLLOWING  DECLARE  STATEMENTS  SET  UP  THE  TRAP,  RST5.5,  RST6.5, 
RST7.5  INTERRUPT  TABLE  IN  EPROM  TO  JUMP  TO  LOCATIONS  IN  THE  8155  RAM, 
WHERE  ANOTHER  JUMP  TABLE  IS  ACCESSABI.E  BY  PROGRAMS  IN  RAM.  THE  RAM 
TABLE  IS  I N I T I T  AL I  ZED  TO  JMP  0  WHERE  THE  EPROM  ENTRY JUMP  IS  LOCATED.  V 


29  I  DECLARE  JUMPlCOOE  LITERALLY  '0C3H'; 

30  I  DECLARE  VECTOR 1TABLESBASE  LITERALLY  1 7FF4H' ; 


31 


32 


DECLARE  VCCTOR!TAeLEiBASE!PTR  ADDRESS, 

ADDR  ADDRESS  AT  ( .VECTOR! TABLElBASE!PTR) , 

VECTORtTAB!  E  BASED  VE:TORiTARLC!BA$E!PTR  BYTE; 

DECLARE  C0DE0I3)  BYTE  AT  (0024H)  DATA(OC3H,OF4H,7FH), 

COOEK3)  BYTE  AT  (C02CH)  DA.’ AIOC3H ,OF7H, 7FH) , 
COOE2(3)  BYTE  AT  I0034H)  DATA(0C3H,0rAH, 7TK 1 , 
COOE2AI3)  BYTE  AT  (0038H)  DATA(OC3H,0, 0) , 

CODE 3 ( 3)  BYTE  AT  (003CH)  DATA(OC3H,OFDH,7EH) ; 

/*  THIS  DECLARE  IS  NOT  CURRENTLY  USED  BUT  MAY  BE  IN  THE  FUTURE 

DECLARE 


1 NT$VECTOR(8) 

ADDRESS, 

*  INTERRUPT  VECTORS  * 

TRAP!  1  NT 

ADDRESS, 

*  POWER  FAIL  SENSE  * 

1  NT! 73 

ADDRESS, 

*  TIMER  INPUTS,  TINTO  A  TINT1  * 

1 NT!63 

ADDRESS, 

*  RING  INDICATOR  AND  CARRIER  DETECT  ' 

INT!35 

ADDRESS, 

*  FLAG  (FIND  AND  MULTIBUS  INTERRUPT 

R 1 M!MA5K 

BYTE, 

*  INTERRUPT  MASK  RETURNED  BY  RIM  * 

TRAP! 1 NTlPTR 

L  1  TER ALLY 

' 024M' ,  *  INTERRUPT  LOCATIONS  * 

INT!55!PTR 

LITERALLY 

'02CH' ; 

INTJ651PTR 

LITERALLY 

•03411', 

INT!75!PTR 

LITERALLY 

'030H' , 

I  SBC  344  I/O  DECLARATIONS  SECTION 


33  1 

DECLARE 

/*  MASTER/SLAVE  PORTS  V 

SIMtMASK 

LITERALLY  '0!FH' 

,  /’SIM  MASK-TURN  orr  INTERRUPTS 

MASTER 

LITERALLY  '0C3H' 

,  /•  MASTFR  MODE  V 

SLAVE 

LITERALLY  '0E4H' 

;  /•  SLAVE  MODE  V 

34  1 

pr  CLARE 

/*  8?r'l  1 

JSARTS  */ 

USirofCMD 

LITERALLY  'OO'.IP 

,  /•  SERIAL  PORT  0  CONI' 1AND  V 

H  -  79 


PL/M-30  CONP ILER 


LOOM  NFTWORK  TEST  PROGRAM 


2  OCT  1934 


DESTINATIONSADDRESS  BYTE,  /*  DESTIN  ADDR  OF  DATAGRAM  */ 
SOURCESADDRESS  BYTE,  /*  SOURCE  ADDR  OF  DATAGRAM  V 
FOREVER  BYTE, • 

BRFO  ADDRESS,  /*  DATA  RATE  FACTOR,  USART  0  V 
BRFI  ADDRESS,  /*  OATA  RATE  FACTOR,  USART  1  V 
BRP2  ADDRESS,  /*  DATA  RATE  FACTOR,  USART  2  V 
BRF3  ADDRESS,  /*  DATA  RATE  FACTOR,  USART  3  V 
I SRtSTAT  BYTE;  /*  IRR  STATUS  BYTE  V 

/#**»*  »«*#»*»**»***»***  *«*»**#**«-*  **im*inn*«Hm***»*ni*#**#*«***»*##*#**#*»*» 


9 

1 

RSMASK: 

PROCEDURE  BYTE  EXTERNAL;  /*  USE  THE  PLM89.L 1 B  WHEN  LINKING  */ 

10 

2 

END 

RSMASK;  /*  REQUIRED  FOR  THE  ROBS  PROCESSOR  V 

M 

1 1 

1 

SSMASK: 

PROCEDURE  (MASK)  EXTERNAL; 

12 

2 

DECLARE  MASK  BYTE; 

IT 

2 

END 

SSMASK: 

. . . . — . . . * . — . / 

-  ’ 

/* 

SIGMON  MESSAGE  AND  DIAGNOSTIC  MESSAGES  V 

14 

1 

DECLARE 

HE  ACER  ( *  )  BYTE  DATA(CR,I.F, 

1 

UNID  1 1  #2  LOCAL  OS',CR,LF , 

t 

TEST  PROGRAM ',CR,LF, 

1 

VERS  1.1,  2  OCT  R4 '  ,CR  ,LF , 

1 

EXECUTING  ' ,CR,LF > ; 

IS 

1 

DECLARE 

TPS  1 ( * )  BYTE  DATA (CR.LF , 

'  tpj  i 

Received  datagram,  putting  In  I.C01TX'); 

■  •  • 

1  A 

1 

DECLARE 

TP$2(»)  BYTE  DATA (r;R fLF , 

t  • .  .»  .  J 

’TPS  2 

In  RO'JTESOUT*); 

c  i 

17 

1 

DECLARE 

rP$3(#)  BYTE  DATA  (CR.LF, 

’TPS  3 

Sent  TR *  > ; 

18 

1 

DECLARE 

TPS3A( * )  BYTE  OATA(CR,LF, 

'TPS  3 A 

Sent  TA'); 

19 

1 

DECLARE 

rPS3B(*)  BYTE  DATA (CR.LF , 

' TPS  5B 

Reoel ved  TR ' ) ; 

* 

20 

1 

DECLARE 

TFS3C(»)  BYTE  DATA (CR.LF, 

' TPS 3C 

Received  TA'); 

2' 

I 

DECLARE 

TPS4 ( * )  BYTE  DATA (CR.LF, 

.■  '.“j 

'TPS  4 

Not  TRTA,  sending  datagram ’ ' ; 

. 

22 

1 

DECLARE 

TPS4AC)  BYTE  DATA(cr,I.F, 

- 

' TPS  1 A 

Completed  sending  datagram' ) ; 

23 

1 

DEE L ARE 

TPS  SC)  BYTE  DATA(CR,LF, 

'  THIS 

Completed  initialising  S4 t  Hoard’); 

74 

I 

DECLARE 

TPSM*)  BYTE  DAT  A  (CR,  Id’, 

''  •  .  *' 

'TPS  6 

Completeg  initialising  vir 1 aRI es ’ ) ; 

23 

1 

DECLARE 

TPS7C)  BYTE  DATA(CR,Lr , 

'  TPS7 

Completed  i nit  fall  ring  toMo-,’); 

-  :b 


’  'AV,*- 

i.a . 


M 


PL/M-80  COMPILER  LOCAL  NETWORK  TEST  PROGRAM,  2  OCT  1904 


AT  (.SYSSBASE  +  50  +  PACKETSTABLESS I ZC  + 

PACKET* TABLE* SIZE  + 

PACKETSTABLESSIZE  + 

PACKETS  TABLESS  I ZE  + 

FRAMESTABLESS I ZE ) ; 

/*  END  OF  SHARED  MEMORY  TABLES  AND  VARIABLES  */ 

8  1  OECLARE 

I.C01TX  (OATAS  FABLES  SIZE)  BYTE, 

LC02TX  (DATASTABLESSIZE)  BYTE, 

LC03TX  (DATASTABLESSIZE'  BYTE, 

LC04TX  (DATASTABLESSIZE)  BYTE, 

(LOGINS,  LC01NE,  LC01SZ, 

LC02NS,  LC02NE,  LC02SZ, 

I.C03NS,  LC03NE,  LC03SZ, 

LC04NS,  LC04NE ,  LC04SZ)  ADDRESS, 

(NTOINS,  N TO  I  ME,  NT01SZ, 

NT02NS,  NT02NE ,  NT02SZ)  ADDRESS, 

(TX01NS,  TX01NE,  TX01SZ, 

TX02NS,  TX02NE,  TX02SZ, 

TX03NS,  TX03NE,  TX03SZ, 

TX04NS ,  TX04NE,  TX04SZ)  ADDRESS, 

STATTB  (STATSNBR)  BYTE, 

/»*»«»»»»**»»*«»»»**»**•***»»*»»*»»»»»»*»*»»»»»»»»**♦»*»»»»***»»♦»***»/ 
/*  ADDITIONAL  DECLARES  NEEDED  FOR  THIS  PROGRAM  V 

/**#**#**#»*##*#******##****##****«****#**#*******##***##'*»**#»#**»»*«/ 


/*  INTERNAL  VARIABLES  USED  IN  THIS  MODULE  */ 

( SENDS  1 ,  SENDS2,  SENDS3,  SENDS 4 )  BYTE, 

(BYTESSSENTSI ,  BYTESSSENTS2, 

BYTESSSENTS3,  BYTESSSENTS4)  BYTE, 

(BYTESSRECVS1 .  BY TESSRFCVS2, 

RYTESSRrCVS3,  BYTESSRECVS4 )  BYTE, 

( TRTAS1 , TXTRS1 , TXT  AS  1 ,RXTR*1 ,RXTA$1 , 

TRTAt  2 , TXTRS  2, TXTAS  2,RXTRS2 ,RX  TAS2 , 

TRTAS3,TXTRS3, TXT  AS3,RXTRSi,RXT  AS3 , 

TRTAS4 ,TXTRS4 ,TXTA$4 ,PXTRS4,RXTAS4 )  BYTE, 

< CHAPS  I ,  CHARS2,  CHARS 3,  CHARS 4,  CHARtX)  BYTE, 

DESTINATION  BYTE,  /’  DESTINATION  OF  THE  PACKET  V 


-  7  7 


II 


Pl/M-80  COMPILER  LOCAL  NETWORK  TEST  PROGRAM,  2  OCT  1984 


/*  CAUTION:  THIS  IS  THE  REGINNING  OF  THE  SHARED  MEMORY  AREAS  */ 

/»  CAUTION:  THE  FOLLOWING  DECLARE  STATEMENTS  ARE  CAREFULLY  CHOSEN  TO 
ALLIGN  THE  UNID  LOCAL  TRANSMIT,  RECEIVE  AND  NETWORK  RECEIVE  TABLES 
AND  THE  FLAGS  AND  SEMAPHORES,  BEGINNING  AT  8001 H.  EACH  TABLE  IS 
CAREFULLY  ALLIGNED  SO  THAT  THEY  RESIDE  IN  CONTIGOUS  MEMORY  LOCATIONS. 
ANY  CHANGE  IN  THESE  DECLARE  STATEMENTS  SHOULD  ONLY  BE  DONE  AFTER 
CAREFULL  READING  OF  THE  THESIS  BY  CHILDRESS,  ESPECIALLY  CHAPTERS 
FOUR  AND  FIVE  (4  f,  6).  THE  ORDER  IS  ALSO  CRITICAL.  THE  INITIAL 
DECLARES  FOR  THE  TABLES  MUST  BE  AT  THE  CORRECT  OFFSET  FROM  SYSSBASE 
IN  ORDER  TO  RESIDE  IN  THE  CORRECT  LOCATION  IN  MEMORY.  THE  REMAINING 
LOCAL  TRANSMIT  TABLES  AND  OTHER  PROGRAM  VARIABLES  THEN  FOLLOW 
THE  SHARED  MEMORY  AREAS.  SEE  THE  BATCH  FILE  USED  TO  LINK  AND  LOAD 
THIS  MODULE. 

V 

5  1  DECLARE  SYStMEMSBASE  LITERALLY  '0800IH';/*  SYSTEM  MEMORY  BASE  ADDRESS  V 

6  1  DECLARE  SYStBASE  BYTE  AT  (SYSSMEMSBASE) ; 

/»  DECLARATIONS  FOR  FLAGS  AND  TABLES  IN  SYSTEM  MEMORY  V 


7  1  DECLARE 

(LSEMS1,  LSEMS2,  LSEMS3,  /*  LOCAL  TO  NET  SEMAPHORE  AND  V 

LSEMS4,  NSEMS1 ,  NSEM$2)  BYTE  /*  NET  TO  LOCAL  SEMAPHORE  V 

AT  (.SYSSBASE), 

(LPTRS1 ,  L SPARES 1 ,  LPTRS2,  LSPARES2,  /*  LOC  TO  NET  PACKET  PTR  V 

LPTRS3,  LSPARES3,  LPTRS4,  L SPARES 4,  /*  LOC  TO  NET  PACKET  PTR  »/ 

NPTRS1 ,  NSPARES 1 ,  NPTRS2,  NSPARES2)  ADDRESS  /*  NET  TO  LOC  PACKET  PTR  V 

AT  (.SYSSBASE  +  6), 

LC01RX  (PACKETS TABLESS I ZE)  BYTE  /*  LOCAL  BOARD  RECEIVE  TABLES  */ 

AT  (.SYSSBASE  +30), 

LC02RX  (PACKETSTABLESSIZE)  BYTE 

AT  (.SYSSBASE  +  30  +  PACKETSTABLESSIZE), 

LC03RX  (PACKETSTABLESSIZE)  BYTE 

AT  (.SYSSBASE  +  30  +  PACKETSTABLESSIZE  + 

PACKETSTABLESSIZE), 

LC04RX  (PACKETSTABLESSIZE)  BYTE 

AT  (.SYSSBASE  +  30  +  PACKETSTABLESSIZE  + 

PACKETSTABLESSIZE  + 

PACKETSTABLESSIZE), 

NT91RX  (ERAMESTABLESSIZE)  BYTE  /*  NETWORK  BOARD  RECEIVE  TABLES  */ 

AT  (.SYSSBASE  +  30  +  PACKETSTABLESSIZE  + 

PACKETSTABLESSIZE  + 

PACKETSTABLESSIZE  + 

PACKETSTABLESSIZE), 

NT02RX  (ERAMESTABLESSIZE)  BYTE 


'•  '-Vs* 

»e~*iW 


■laWaAfe 


H 


76 


PL/,'4-80  COMPILER  LOCAL  NETWORK  TEST  PROGRAM,  2  OCT  1984 


DATA3TA8LE3SIZE  LITERALLY  *1280’,/*  DATAGRAM  *  NBR  OF 

DATAGRAMS  V 

PACKET3TABLE3SIZE  LITERALLY  ’1330’,/*  NUM8R  OF  BYTES  IN  TABLE’/ 
FRAME3TARLE3SI  ZE  LITERALLY  '1350',/*  NUMBR  OF  BYTES  IN  TABLE’/ 
TCP30ATA3SI  ZE  LITERALLY  ’72',  /*  TCP  DATA  SIZE  »/ 

TR  LITERALLY  '42H',  /*  TRANSMIT  REQUEST  CHAR  */ 

TA  LITERALLY  '4IH',  /*  TRANSMIT  ACKNOWLEDGE  CHAR  ’/ 

MAX3RXTA3 TRIES  LITERALLY  '3',  /»  MAXIMUM  NUMBER  OF  TA  WAIT 

TRIES  */ 

OFFSET!  LITERALLY  '5',  /*  OFFSET  FROM  PACKET  TO  IP 

HEADER  */ 

/*  FOLLOWING  ARE  NETWORK  DEFINED  VARIABLES  V 

/*  NOTES:!.  THI S3UNID3NBR  MUST  REFLECT  WHICH  UNID  THIS  IS. 

2.  TH I StCOUNTRYtCODE  MUST  REFLECT  THE  AREA  TO  WHICH 

THIS  UNID  IS  LOCATED. 

3.  MAX  SCOUNTRY SCOPE  WILL  INDICATE  WHICH  COUNTRY  CODES 

ARE  CURRENTLY  OPERATIONAL.  CC-0000  IS  RESERVED  FOR 
THE  DELNET  MONITOR. 

4.  MAX SNETWORKt CODE  WILL  INDICATE  HOW  MANY  UNIDS  ARE 

CURRENTLY  OPERATIONAL  WITHIN  A  PARTICULAR  COUNTRY. 

5.  FOR  DETAILED  INFORMATION  ON  THE  ABOVE  REFER  TO 

PHISTER'S  THESIS,  APPENDIX  D.  V 

TH I StUNIDSNBR  LITERALLY  '02',  /*  UNIQUE  ADDRESS  FOR  THIS  UNID  */ 

THISSCOUNTRYJCODE  LITERALLY  '09',/*  CC  WHERE  THIS  UNID  RESIDES  */ 

MAX JCOUNTRYSCOOE  LITERALLY  '09',/*  INDICATES  COUNTRYtCODES  IN  USE  V 
MAXlNETWORKSCODE  LITERALLY  '03';/*  INDICATES  UNIDS  OPERATIONAL 

IN  NET  »/ 

/*  NOTE:  THE  LITERAL  TH I S3COUNTRY3CODE  OF  9,  ABOVE,  IS  HERE  FOR  USE  WITH  THE 
SUMMER  QUARTER  EE  6.90  PROJECT; I .E.,  INTERFACE  THE  UNID  II  WITH  THE  NETOS  */ 

3  I  DECLARE  L$R I SDESTSERR  LITERALLY  'S’,  /*  LOCAL  R0UTE3IN  ERROR  V 

LSR03DEST3ERR  LITERALLY  '6’;  /*  LOCAL  R0UTE30UT  ERROR  V 


/*  MISCELLANEOUS  DECLARATIONS 

*/ 

DECLARE  BUSY 

LITERALLY 

'OFFH ' , 

TRUE 

LITERALLY 

'OFFH' , 

FALSE 

LITERALLY 

'OOH' , 

READY 

LITERALLY 

't'. 

DONE 

L  1  TERALLY 

'2', 

CR 

LITERALLY 

'OOH' , 

LE 

L  1  TERALLY 

'OAH', 

USARTON 

LI  TERALLY 

'001030! 1  IB', 

USARTOFF 

L 1 terallv 

'000030! I  OR'; 

/’””””” . . . . . . . 

/»  DATA  TABLES  USED  IN  THIS  PROGRAM  »/ 

. . . »>/ 


-  7', 


H 


ISIS-II  PL/M-80  V3.0  COMP  I L AT I  ON  OF  MODULE  MAIN 
OBJECT  MOOULE  PLACED  IN  :FI tNEWLOC.OBJ 
COMPILER  INVOKED  BY:  PLM80  :F1 :NEWLOC.SRC 


ST1 TLE( 'LOCAL  NETWORK  TEST  PROGRAM,  2  OCT  1984') 

$  I NTVECTOR ( 4 , 20H ) 

/***»»**»#**»*»»**»*»***#****»«»*#***#*»»»***»»*»»* « *«»»****»»»/ 


/*  V 
/*  DATE:  2  OCT  84  */ 
/*  VERSION:  1.1  */ 

r  v 

/»  TITLE:  LOCAL  NETWORK  LAYER  TEST  PROGRAM  V 
/*  FILE  NAME:  NEWLOC.SRC  V 
/*  OWNER:  C.  T.  CHILDRESS  V 
/*  V 
/*  SOFTWARE  SYSTEM:  UNIO  II  V 
/*  USE:  SIMULATE  THE  FUNCTION  OF  THE  NETWORK  LAYER  V 
/*  SOFTWARE  FOR  USE  WITH  THE  SBC  544  V 
/*  V 
/*  CONTENTS:  PL/M  SOURCE  CODE  FOR  THE  UNID  II  NETWORK  V 
/*  LAYER  SOFTWARE.  V 
/*  V 


/»»•»*»«■»»»»»*»»*»**»*»  »*••»»»»»»»•*«***«»»»»*•  *«** 

PROLOGUE  -  MODULE  L.MAINSU1  DATE  TRANSLATED:  1  SEP  35 

DATE  LAST  MODIFIED:  .?  OCT  84 

*»»  PURPOSE  IS  TO  SIMULATE  THE  MA'N  544  CODE  USING  JUST  ONE  SET  OF 
TABLES.  THIS  PIECE  OF  S/W  WILL  WORK  WITH  THE  CP/M  SIMULATION 
IN  CPMTMP.SRC 

*#* 


1  MAIN:  DO; 

/*  THE  FOLl OWING  ARE  UNID  DEFINED  VARIABLES  V 
/*  NOTE:  THESE  VARIABLES  MAY  CHANGE  DEFENDING  "N  THE 

SOFTWARE  CONFIGURATION  USED  WITHIN  THE  DEl.NET  */ 

2  1  DECLARE  DATA*GRAMSSI 2C  LITERALLY  ’128’.  /»  DATAGRAM  FROM  HOST  V 

PACKETJS 1 2E  l  I  TER  ALLY  ’13V,  /*  DATAGRAM  +  5  FOR  HEADER  V 

FRAMEJSI2E  LITERALLY  "35',  /"  PACKET  +  2  TOR  HEADER  */ 

PACKETS* INSTABLE  LITERALLY  MO', 

STATtNPR  LITERALLY  '70',  /*  STATUS  ENTRIES  IN  STATTB  */ 


3.  SBC  544  Validation 


The  purpose  of  this  program  Is  to  operate  the  network  level 
software  on  the  Intel  SBC  544.  All  the  constnts,  variables  and 
procedures  from  the  network  layer  simulation  are  used  In  this  program 
with  the  following  exceptions: 

1.  The  READ,  WRITE,  EXIT  and  ERROR  ISIS  system  calls  are  not  used. 

2.  The  constants  R$CONN  and  U$CONN  are  not  used. 

3.  The  variables  ACTUAL,  BUFFER,  ERRNUM  and  STATUS  are  not  used. 


U  -  73 


PL/M- 80  COMPILER  LOCAL  NETWORK  TEST  PROGRAM,  30  SEP  1964 


/»«»»***«**#**»*»»**»******im-**  ■p.jjr  *»♦*»*»«*»**»»»*»»***»**«*»«#**/ 

MODULE  INFORMATION: 

COOE  AREA  SIZE  =  274AH  10050D 

VARIABLE  AREA  SIZE  =  33B8H  I3240D 
MAXIMUM  STACK  SIZE  =  OOOCH  120 
1686  LINES  READ 
0  PROGRAM  ERROR (S) 

END  OF  PL/M-80  COMPILATION 
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847  5  END; 

848  2  CALL  SNDSEQ( .TPS50,  S I ZE (TPS50) ) ; 

849  2  CALL  HEX$ASC(LOW(CHAN$NUM),  O’; 

850  2  CALL  SNDSEQ< .TEMPI ,  2); 

851  2  CALL  SN0SEQ(.TPS51A.  SIZE( TPS51 A) ) ; 

852  2  CALL  HEXSASCIL’ESTSNETSCOOE,  0); 

853  2  CALL  SNDSEQf .TEMP) ,  2>; 

854  2  CALL  SNDSEQf .TPS52A,  SIZE (TPS52.A) ) ; 

855  2  CALL  HEXJASC(DESTSHOST$CODE,  0); 

856  2  CALL  SNDSEQ( .TEVP1 ,  2); 

857  2  CALL  SNDSEQ( .MSG2,  SIZE(MSG2>>; 

858  2  CALL  READ(R$CONN,  .BUFFER,  128,  .ACTUAL,  .STATUS); 

859  2  CALL  ERRSCHK; 

860  2  IF  (BUFFER (0)  =  ’ Y ' )  OR  (BUFFER (0)  =  'v’>  THEN 

861  2  FOREVER  =  FALSE; 

ELSE 

862  2  FOREVER  =  TRUE; 

863  2  END  RE ADSL  I NE; 

/**»**»«  »#*******»**»***##»**H«»**»»»»*4  »»**»»***  *«»»»»♦<.**»  »«*»«»»*»»* i 

/*  THIS  IS  THE  MAIN  BODY  OF  THE  PROGRAM  V 

864  1  BEGIN: 


865  1 

866  1 

867  1 

868  I 

869  1 

870  1 

871  1 

872  1 

873  1 

874  2 

875  2 

876  2 

877  2 

878  2 

87T  2 

880  2 
881  2 
382  1 

883  I 


CALL  SNDSEQM.  STARTUP  VIDR,  SIZE  (STAR  TUPJHDR) ) ; 
CALL  SNDSEQ(.TP*1 ,  SIZE(TP$1>); 

CALL  INITSLSTAB; 

CALL  SN0SEQ(.TPS2,  SI ZE(TP$ 2 ) ) : 

CALL  SNDSEQ(.TP*3,  SIZE(TPS3)>; 

CALL  INVINT; 

CALL  SNDSEQ(.TP$4,  SIZC(TP$4)); 

FOREVER  *  TRUE; 

CALL  RE ADSL  INF; 

DO  WHILE  FOREVER; 

CALL  READSLCTAB; 

CALL  SN0SECX.TPS5,  S I ZF. ( TPS5 ) ) ; 

CALL  ROUTES  IN; 

CALL  SERVICESLOOP; 

CALL  READS TXTAB; 

CALL  SNDSE0(.TP$35,  SI ZE(TP$35) ) ; 

CALL  PE ADSL  INF; 

FND; 

CALL  SNDSEQI  .TPS  36,  SIZE(TP$36”; 

CALL  EXIT; 


884  I  END  MAIN; 


H 
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. . * . . . 

PROCEDURE  KuADiLINE 

PURPOSE 

REALS  A  LINE  OF  DATA  FROM  THE  HOST  ISIS  ll  CONSOLE,  THEN  INTERPRETED 
FOR  EXECUTING  EITHER  LOAD  ANOTHER  TEST  MESSAGE  IN  THE  LCNTTB  OR 

stopping  the  test. 

. . . 

8)0  I  RE AD$L I NE:  PROCEDURE; 

til  2  DECLARE  CHANJPTR  ADDRESS, 

(I,  DESTSNE1 SCOUE,  ULSISHuSISOOuE)  BYTE; 

LIT  2  1=0; 


CALL  SNDSEQv .MSGI  ,  SIZE(MSGI)); 

CALL  READtRSCONH,  .BUFFER,  123,  .ACTUAL,  .STATUS); 
CALL  ERRiCHK; 


819  3 

8  CO  3 


IF  (BUrTtR(O)  =  1 Y 1 )  OR  (BUFFLR(O)  =  'y')  THEN 
DO; 

CALL  SNDsEO(.Moo),  SIZE(MSGJ)); 

CALL  READ (K (CONN,  .BUFFER,  128,  .ACTUAL,  .STATUS); 

CALL  ERRSCHK; 

CHANSNU14  =  DOUBLE (A$C$HEX(BUFFLR(0) ) ) ; 

IF  (CHANSNUM  >=  1)  AND  (CHANSNUM  <=  4)  THEN 
DO; 

CHANSPTK  =  UPDATE SLCPTR {CHANSNUM); 

CALL  SNQ3EQ( .MSGS,  SI Z£ (MSGS) ) ; 

CALL  R£AD(RSCGNN,  .BUFFER,  128,  .ACTUAL,  .STATUS); 
CALL  ERRSCHK; 

DES I SNETSGOOE  =  ASCJHtXCBUFI'ERTO) ) ; 


836  3 


C ALL  SNDitOT.MSGo,  SIZE(MSG6>); 

CALL  REAO(RSCONN,  .BUFFER,  128,  .ACTUAL,  .STATUS); 

CALL  ERRSCHK; 

DESTSHOS  TtCODE  =  0; 

DO  I  =  1  TO  (ACTUAL-2); 

DESTtHOSTSCOOE  =  ROL(OEST$HOST$COOE,  4); 

DESTSHOSTSCODE  =  DESTSHOSTSCODE  OR  ASC$HEX(BUFFER( 1-1 ) ); 

CND; 


837  4 

838  4 

839  4 

840  4 

841  4 

342  5 

84  5  8 

844  5 

843  S 
84b  4 


CALL  SNUSEi}( .MSG4,  S1ZE(MSG4)); 

CALL  READtRjCONN,  .BUFFER,  128,  .ACTUAL,  .STATUS); 
CALL  ERRSCHK; 

IF  (BUFFER(O)  >=  '!')  AND  (BUFFER(O)  <=  '9')  THEN 


DO  I  =  1  TO  ASCSHEXCBUFFER(O) ); 

CALL  LOADtCHANSPTR,  DESTSNE TSCODE,  DESTSHOSTSCOOE ) ; 
CALL  LD$TAB$HSKP(CHAN$NUM) ; 

CHANJPTR  =  UPDATESLCPTRt CHANSNUM); 

END; 


END; 


H 
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766  4 

767  4 

768  3 

769  3 

770  4 

771  4 

772  4 

773  4 

774  3 

775  3 

776  3 

777  3 

773  3 


1=1+1; 

END; 

I  =  0; 

DO  WHILE  I  <=  15; 

TEMP2( I )  =  TEMPI (14-1); 

TEMP 2(1+1)  =  TEMPI (15-1); 

1=1+2; 

END; 

CALL  SNDSEQ(.TPS56C,  S ICE ( TPS560) ) ; 

CALL  SNDSEQUCRLF,  SIZE(CRLF)); 

CALL  SNDSE<?(.TEMP2,  SIZE(TEMP2) >; 

CALL  SNDSEOt •LC03TB(LC03NS  +56),  TCPSDATASS I ZE) ; 

END; 


779  2 

780  2 

781  3 

782  3 

783  4 

784  4 

785  4 

786  3 

787  3 

788  4 

789  4 

790  4 

791  4 

792  3 

793  3 

794  3 

795  3 

796  3 


IF  ( (LC04NE  -  LC04NS)  >=  DATASGRAMSS I 2E )  OR  (LC04NS  >  LC04NE )  THEN 
DO; 

I  =  12; 

DO  WHILE  I  <=  18; 

CALL  HEX$ASC(LC04TB(LC04NS  +  I ) , ( 1-1 2)*2) ; 

1=1+1; 

END; 

I  =  0; 

DO  WHILE  I  <=  15; 

TEMP2( I )  =  TEMPI (14-1); 

TEMP2(I  +  1)  =  TENPK15-I); 

1=1+2; 

END; 

CALL  SNDSEQ(.TP156D,  S I ZL ( TP$56D) ) ; 

CALL  SNDSEO(-CRLF,  SIZE(CRLF)); 

CALL  SNDSE0(.TEMP2,  S I ZE ( TEMP2) ) ; 

CALL  SNDSEO< •LC04TEHLC04NS  +  56),  TCPSDATASS I ZE); 

END; 


797  2  END  REAOSLCTAB; 


798  1  'JPDATESLCPTR:  PROCEDURE  (CHANSNUM)  ADDRESS; 

799  2  DECLARE  (CHANSNUM,  CHANSPTR)  ADDRESS; 


300  2 

801  2 
30?  3 

803  3 

804 

305  5 

806  3 

307  3 


IF  (CHANSNUM  >=  1  AND  CHANSNUM  <=  4)  THEN 
DO  CASE  CHANSNUM; 

t 

CHANSPTR  =  .LC01 TB(LCOINF) ; 
CHANSPTR  =  .LC02T9(LC02NE); 
CHANSPTR  =  .LC03TB (LCD  3NE ) ; 
CHANSPTR  =  .LC04TB(LC04NE) ; 

END; 


808  2  RETURN  CHANSPTR; 

800  2  F.ND  UPDATESLCPTR; 


H 
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720  3  CALL  SRVC$TAB$HSKP( II); 

721  3  END; 

722  2  END  REA0$TXTA8; 


723  1  READtLCTAD:  PROCEDURE; 

724  2  DECLARE  I  BYTE; 


725  2 

726  2 

727  3 

728  3 

729  4 

730  4 

731  4 

732  3 

733  3 

734  4 

735  4 

736  4 

737  4 

739  3 

739  3 

740  3 

741  3 

742  5 


IF  t (LC01 ME  -  LC01NS)  >=  DATAtC-RAflf  3 I 7E )  OR  (LOGINS  >  LC01NE)  THEN 
DO; 

I  =  12; 

DO  WHILE  I  <=  18; 

CALL  HEX$ASC(LC01 TB(LC01 NS  +  I ) , ( I -1 2) *2) ; 

1=1+1; 

END; 

I  =  0; 

DO  WHILE  1  <  =  15; 

TEMP2 ( I )  =  TEMPI (14-1 ); 

TE>t’2(l  +  1)  =  TEMPI  (15-1); 

1=1+2; 

END; 

CALL  5NDSEQ( .TPJ56A,  S I 2E ( TP$56A) ) ; 

CALL  SNDSEO(.CRLF,  SUE(CRLD); 

CALL  SNDSEO(.  TEMPO,  SIZE  (TEMPO)); 

CALL  SNDSEQt .LC01 TPtLCOINS  +  56),  TCPtDATASSIZE) ; 

END; 


743  2 

744  2 

745  3 

746  3 

747  4 

748  4 

749  4 

750  3 

751  3 

752  4 

753  4 

754  4 

755  4 

756  3 

757  3 

750  3 

759  3 

760  3 


IF  ( (LC02NE  -  LC02NS)  >=  DATA$GRAMJS IZE )  OR  (L002NS  >  LC02NE )  THEN 

00; 

I  =  12; 

DO  WHILE  I  <=  18; 

CALL  HEX  $  ASC ( LOO  2  TB ( L  CO  2N  S  +  I ), ( 1-121*2); 

1=1+1; 

END; 

I  =  0; 

DO  WHILE  I  <=  15; 

TEMP2(I>  =  TEMPI (14-1); 

TEMP2(  1  +  I )  *  TCMT*  ?  (15-1); 

1=1+2; 

ENP; 

CALL  SNDSEOt .TPS56P,  SIZE! TFJ56B) ) ; 

CALL  SNDSF.Qt  .CRLF ,  SIZE(CRLF)); 

CALL  SNDSEO(.  TEMF'2,  S IZE (TEMP2) ) ; 

CALL  SNDSEQ(.LC07Tf3(LC02NS  +  56),  TCPtPATASS IZE) ; 

END; 


761  2  IF  ( (LC03NE  -  LC03NS)  >=  DAT AIGRAMJS I ZF. )  OR  (LC03NS  >  LC03NE)  THEN 

762  2  DO; 

763  3  I  =  12; 

764  3  DO  WHILE  I  <=18; 

765  4  CALL  HEXtASC(LCO3T0(LC03NS  +  I ) , ( 1-1 2 ) *2) ; 
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671  4 

672  3 

673  3 

674  4 

675  4 

676  4 

677  4 

673  3 

679  3 

680  3 

681  3 

682  3 

633  3 


END; 

I  -  0; 

DO  WHILE  I  <=  15; 

TENf2(  I  )  =  TEMPI  (14-1); 

TEMP21 1+1 )  =  TEMPI (15-1); 

1=1+2; 

END; 

CALL  SNDSEQf .TP$55D,  SIZE ( TPS55R ) ) ; 

CALL  SNDSEQf. CRLE,  SIZE(CRLF) >; 

CALL  SNDSEQf .TEMP2,  S I ZE ( TEMP2 ) ) ; 

CALL  SNDSEQf. TX02TB(TX02NS  +  56),  TCPIDATASS I ZE ) ; 
CALL  SRVC$TAB$HSKP(9) ; 

END; 


684  2 

685  2 

636  3 

637  3 

683  4 

689  4 

690  4 

691  3 

692  3 

693  4 

694  4 

695  4 

696  4 

69  7 

699  3 

69')  3 

700  3 

701  3 

70  7  1 


IF  f (TX03NE  -  TX03NS)  >=  DATASOPAMtS I ZE )  OP  ( TX03NS  >  TX03NE )  THEN 

00; 

I  =12; 

DO  WHILE  I  <=  18; 

CALL  HEXSASC f TX03TB ( TX05NS  +  I ) , f 1-1 2>*Z> ; 

1=1+1; 

END; 

I  =  0; 

DO  WHILE  I  <=  15; 

TEM°2( I  )  =  TEMPI  f  14-1  ); 

TENP2(  1  +  1 )  =  TENPK15-I); 

1=1+2; 

END; 

CALL  SNDSEQf. TP$55C,  SI ZE(TP$55C) ) ; 

CALL  SNDSEQf.  CRLF,  SI  ZEfCRLF ) ) ; 

CALL  SNDSEQf. TEMP2,  SIZF.fTEMP?) ) ; 

CALL  SNDSEQf. TX03TRUX03NS  +  56),  TCPSDATAtS I ZE ) : 

CALL  SRVCSTAOSHSKPflO); 

END; 


703  Z 

704  2 

705  3 

706  3 

70  7  4 

709  4 

709  1 

710  3 

Ml  3 
712  4 

71  5  4 

714  4 

7 1  5  4 

716  5 

717  3 

718  3 

719  3 


I1-  ( (TX04NF.  -  TX04NS)  >=  DATASGRAMSS I  ZE )  OR  ( TX04NS  >  TX04NF. )  THEN 
DO; 

I  =  12; 

PO  WHILE  1  <=  18; 

CALI.  HEXt A50 ( TX04TR f  TX04NS  +  I ) ,  (  I -1  2)  +2) ; 

1=1+1; 

FHD; 

I  »  0; 

DO  WHILE  I  <=  15; 

TEMT2f I )  =  TEMPI (14-1 >; 

TTJf  2 (  1  +  1  )  =  TEMPI  (15-1); 

1=1+2; 

END; 

CALL  SNDSEQf. TPJ5DD,  SI ZEf TPt550) ) ; 

CALL  SNDSEQf. OPLF,  SIZT(CRLr)'; 

CALL  SNDSEQf. TEMP2,  S I  ZE  (  TEMP  2) ) ; 

CALL  SNDSEQf. TX04TP(TX01NS  +  56),  TCPTDAT A$S I ZE ) ; 
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- 

u31 

■> 

LCOXTtil  14)  =  70H  OR  (RGR(L0W(CHAN$NUM*56 )  ,4 )  AND  OFH 

n 

0  52 

2 

/*  PC(O)  =  7,  HC(H)  =  0  V 
LCOXTOl  15)  =  00, i;  /*  PC(2)  -  0,  PC ( 1  )  =  0  V 

633 

2 

/*  IP  DESTINATION  HEADER  V 

LCOXTBT  16)  =  IOH;  /*  CC  =  1 ,  CT  =  0  V 

634 

■j 

LCOXTBL  17)  =  (DESTtUNID  AND  OFH)  OK 

B 

o35 

"> 

ROL( (DESTJHOST  AND  OFH),  4); 

/*  HC(L)  =  6,  NC  =  2  V 

LCOXTET  18)  =  ROR( (OESTSHOST  AND  0F0H),4)  OR  70H; 

53d 

2 

/*  PCtO)  =  7,  HC(H)  =  0  V 
LCOXTBT  19)  =  COH;  /*  PC(2)  -  0,  PC(I)  =  0  V 

r 

C37 

2 

CALL  M0VE(TCP$UATA$5 1 ZE,  .MESSAGE,  .LCOXTBl  56)); 

o3U 

2 

IF  MSOMUf-1  >  9  THEN 

639 

T 

MS6NUM  =  0; 

- 

o40 

2 

LCOXTBL  36)  =  'O'  +  MSGNUM; 

641 

2 

MSGNUM  =  MSGNUM  +  1; 

642 

2 

CALL.  SN0SEQ(.  rP$54,  SI ZE( TPS54) ) ; 

• 

643 

"> 

END  LOAD; 

644 

1 

KlADJTXTaB:  PROCEDURE; 

645 

2 

DECLARE  1  BYTE; 

1 

|  •  646 

2 

IF  ( (TXOINE  -  TXOINS)  >=  DAT ASGRAi4$ S 1  ZE )  OR  (TX01NS  > 

64  7 

2 

DO; 

;  • 

648 

3 

1  =  12; 

619 

3 

DO  WHILE  1  <  =  18; 

* 

650 

4 

CALL  HEX$ASC(TX01TB( TXOINS  +  I),(l-I2)*2); 

661 

4 

1=1+1; 

tk 

032 

4 

END; 

633 

3 

1  *  0; 

634 

3 

DO  WHILE  1  <  =  15; 

653 

4 

TEI4J2(I)  =  TEMPI  (14-1); 

036 

4 

TtMT>2 C  l  +  l  )  =  TEMPI  (15-1); 

o5  7 

4 

1=1+2; 

«- 

638 

4 

END; 

659 

3 

CALL  SNDSEQC . TPi55A,  SI ZE ( TPS55A) ) ; 

, 

6o0 

3 

CALL  SNDSEQT .CRLF,  SIZE(CRLF)); 

66 1 

3 

CALL  SN.9Si:g<.TEMP2,  S 1  ZE  ( TEMP2) ) ; 

66  2 

5 

CALL  SNDSEQC . TXOI TB( TXOINS  +  56),  TCP$DATA$S 1 ZE) ; 

o63 

3 

CALL  SRVC$TAI3$HSKP(8) ; 

• 

6o4 

3 

END; 

603 

2 

IF  ( ( TXU2NE  -  1X02NS)  >=  DATAiGRAM$S 1 ZE )  OR  (TX02NS  > 

666 

2 

DO; 

L*  ■ 

06  7 

3 

1  =  12; 

- 

66b 

3 

DO  WHILE  1  <=  18; 

669 

4 

CALL  HLXt  ASC(TX02  Tt)(  TX02NS  +  1  ) ,  (  1  - 1  2)  *2) ; 

670 

4 

1=1+1; 

66 


rf.  m  .  wl.  J 
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IJS$PO$STAT 

LITERALLY  '001H', 

/* 

SERIAL  PORT 

0  STATUS  V 

US$PO$DATA 

LITERALLY  'ODOM', 

/» 

SERIAL  PORT 

0  OATA  V 

UStPUCMD 

LITERALLY  '0D3H', 

/* 

SERIAL  PORT 

1  COMMAND  */ 

UStPI $ SEAT 

LITERALLY  '002H', 

r 

SERIAI  PORT 

1  STATUS  */ 

US$PI 30AT  A 

LITERALLY  ,0D2H', 

/* 

SERIAL  PORT 

1  DATA  */ 

US$P2$CM0 

LITERALLY  '0D5H', 

/* 

/ 

SERIAL  PORT 

2  COMMAND  */ 

USJP2SSTAT 

LITERALLY  '00511', 

/* 

SERIAL  PORT 

2  STATUS  V 

USSP2$DATA 

LITERALLY  '0D4H', 

/* 

SERIAL  PORT 

2  DATA  V 

US$P3$CM0 

LITERALLY  '0D7H', 

/* 

SERIAL  PORT 

3  COMMAND  V 

US$P3$3TAT 

LITERALLY  '0D7H', 

r 

SERIAL  PORT 

3  STATUS  */ 

US$P5tOATA 

LITERALLY  '0D6H', 

r 

SERIAL  PORT 

3  DATA  V 

USJMODE 

LITERALLY  '04EH', 

/* 

SERIAL  PORT 

MODE  V 

USSCOMMAMP 

LITERALLY  '0?7M', 

/* 

SERIAL  PORT 

COMMAND  V 

USSRESETICMD 

LITERALLY  '40H', 

/* 

RESET  US  ART 

V 

IIS$DTR$ON 

LITCRALLY  '27H', 

/* 

RTS,RXE,DTR, 

,TXE  V 

U5SCRTSCMD 

LITERALLY  '37H', 

r 

RTS,ER,RXE,DTR,TXE  */ 

US$TTY$CMO 

LITERALLY  '35H', 

/* 

RTS.ER.RXE.TXE  V 

USJDTPJOFF 

LITERALLY  '25H', 

/* 

RTS.RXE.TXE 

V 

USIRXRDY 

LITERALLY  '02H', 

r 

RECI EVER  READY  */ 

USSTXE 

LITERALLY  '04H', 

/* 

TRANSMITTER 

CNf’TY  V 

USITXROY 

LITERALLY  '01H', 

/* 

TRANSMITTER 

READY  */ 

PARUYJMASK 

LITERALLY  ' 7FH' ; 

r 

MASK  OrF  PARITY  BIT  */ 

35  1 


DECLARE 


/*  8253  INTERVAL  TIMER  */ 


3*  1 


ITIJCONT 

LITERALLY 

' 0D8H ’ , 

/* 

INTERVAL  Tl MER  1  CONTROL  */ 

1 T 1 SCNTRO 

LITERALLY 

'0031-1', 

/* 

COUNTER  0,  USART  0  V 

IT1JCNTR1 

LITERALLY 

' 009H ' , 

/* 

COUNTER  1,  USART  1  */ 

ITISCNTR2 

LITERALLY 

'ODAH' , 

/* 

COUNTER  2,  USART  2  V 

IT2SC0NT 

L 1  TERALLY 

'ODEH', 

/* 

INTERVAL  TIMER  2  CONTROL  V 

1 T2SCNTR0 

LITERALLY 

'ODCH' , 

/* 

COUNTER  3,  USART  3  */ 

1 T2SCNTRI 

L 1  TERALLY 

'ODDII' , 

/» 

COUNTER  4,  CNTR5  OR  SPLIT  CLOCKS  V 

1 T2SCNTR2 

LI  TERALLY 

'ODEH', 

/* 

COUNTER  5,  RST  7.5  */ 

USART$CNTRSM3  LITERALLY  ' 036H* 

/ 

,  /*  DIVIDE  BY  N  RATE  GENERATOR,  MODE  3,*/ 
*  FOR  USART  CLK  x  16,  CLK  =•  1 .7233  MHZ  V 

B19200 

L  1  TERALLY 

■4', 

/* 

TIMER  VALUE  ECR  10.2  KBPS  */ 

B9600 

LITERALLY 

'8', 

/* 

TIMER  VALUE  FOR  9600  BPS  V 

B4300 

L  1  TERALLY 

'16', 

/* 

TIMER  VALUE  FOR  4300  BPS  */ 

B2400 

LI  TERALLY 

'3  2’, 

/» 

Tin:°  VALUE  TOR  2400  BPS  */ 

B1200 

L 1 TERALLY 

'64', 

r 

TIMER  V«L  ir:  FOR  1700  BPS  */ 

B600 

LITERALLY 

'128', 

/* 

TIMFR  VM  l.'F  FOR  600  BPS  */ 

13300 

LITERALLY 

'25o', 

/* 

rm:R  value  per  300  bps  •/ 

B150 

L 1 TERALLY 

'512', 

/* 

TIMER  VALUE  FOR  1 ^9  BPS  V 

ei  io 

L 1 TERALLY 

' 603 ' ; 

/» 

Tlir"  VALUE  r0R  "0  BPS  */ 

LAR'- 

/*S 1 55 

PERIPHERAL  INTERFACE*/ 

PI  SPORTA 

LITERALLY 

'0E9H' , 

/* 

PORT  A  (OUTPUT)  */ 

P 1 SPORTB 

LITERALLY 

'OEAII', 

/* 

PORT  B  (INPUT)  V 

P 1 JPORTC 

LITERALLY 

'OEBH ' , 

/* 

PORT  C  (INPUT)  */ 

PISSTAT 

LITERALLY 

'OEBH' , 

/* 

PPI  STATUS  V 

II 
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I 


PIICMD  LITERALLY  ’OEOH’, 

P I SCNTRtLO  LITERALLY  'OECH', 

PI ICNTRtHI  LITERALLY  'OEDH', 

P I $CNTR$LOCNT  LITERALLY  '16384* 
P I  SCNTRSH I  CRT  LITERALLY  *75', 

PI J I  Ml TlCMDI  LITERALLY  '041K', 

P I  $  I N I TSCMD2  LITERALLY  '0C1H*, 


/*  PPI  COMMAND  */ 

/*  PPI  COUNTER  LO  BYTE  V 

/*  PPI  COUNTER  HI  BYTE  V 

,  /*  PPI  COUNTER  TIME  CONST  V 
/*  PPI  COUNTER  TIME  CONST  */ 

/*  PPI  INI r I AL I ZAT I  ON  COMMAND  1  V 
/*  A  OUT,  P  J  C  IN,  STOP  COUNT  */ 
/*  PPI  INITIALIZATION  COMMAND  2  */ 


/»  A  OUT,  B  A  C  IN,  START  COUNT  */ 

i' 

PI  $  INI T$U 

StINTI  LITERALLY  'CPOIl 

',  /*  US ART  AND  INT  CONT  RESET  V 

I 

P 1  *  1 N • T» US* 1 NT2  LITERALLY  ’OCOH 

*,  /*  USART  AND  INT  CONT  NORMAL  */ 

n 

PI$PORTC$STAT  LITERALLY  ’OCCH 

',  /‘PORT  C  STATUS*/ 

• 

P 1 SFORTCt 

CTL  LITERALLY  'OCEH 

',  /‘PORT  C  CONTROL*/ 

■ 

PISM2M1 

LITERALLY  '0C6H', 

/‘A-MODF.  1  ,  B-MOOE  2V 

* 

P 1 $OBF 

LITERALLY  *00011', 

/‘OUTPUT  BUFFER  READY*/ 

P 1  *  1  BP 

LITERALLY  *0211'; 

/‘INPUT  BUFFER  READY'*/ 

• 

-  4 

37  1  DECLARE 

/ ‘82*39 

NTERPUPT  CONTPaLER*/ 

ICtPORTA 

LITERALLY  '0E6H*, 

/*  PORT  A  */ 

•  "  • 

I  CJPORTB 

LITERALLY  '0E7H', 

/»  PORT  B  */ 

'  .1 

ICtICWI 

LITERALLY  *56H', 

/*  INI T  COMMAND  WORD  1, 

■■ 

(A7A6A5 )  =  010;  EDGE  TRIG; 

•  ' 

s 

y 

INTERVAL  =  4;  SINGLE;  NO  ICW4  »/ 

1  C$1  CW2 

LITERALLY  'OOH*, 

/*  INIT  COMMAND  WORD  2, 

(A15-A8)  =  0  V 

ICHCW3 

LITERALLY  'OOH', 

/*  INIT  COMMAND  WORD  3, 

NO  SLAVE  IN  IR  */ 

L. 

ICSICW4 

LITERALLY  ’OCH', 

/»  INIT  COMMAND  WORD  4,  NOT  USED  */ 

if 

ICtMASK 

LITERALLY  'O', 

/*  INTERRUPT  MASK,  0CW1 ,  NOT  USED; 

n  .  j 

0  =  ALL  INTERRUPTS  EN ABELL ED  */ 

1 N 1  TIM ASK 

LITERALLY  *  1 0 1 0 1 0 1 0B ' , 

/»  INITIAL  INTERRUPT  MASK,  0CW1 ; 

RECEIVE  INTR  ON,  TRANSMIT  INTR  OFF  V 

ICSEOI 

LITERALLY  'OAOH', 

/*  END  OF  INTERRUPT  CMD,  0CW2, 

• 

ROTATE  (PRIORITY)  ON  NON-SPECIFIC  FOI  */ 

1 C$OCW3 1 R 

LITERALLY  'OAH', 

/"  READ  IRR  LEVEL,  0CW3, 

-* 

NO  SPECIAL  MASK  MODE;  NO  POLL; 

.  « 

READ  IR  RE 3  (NOT  USED)  */ 

1 C30CW3 1 S 

LITERALLY  ' OUH ' , 

/*  READ  ISR  LEVEL,  0CW3, 

• 

NO  SPECIAL  MASK  MODE;  NO  POLL; 

w 

READ  IS  REG  (NOT  USED)  V 

- 

1  C$OCW3$SMMS  LITERALLY  *60H', 

/*  SPECIAL  MASK  MOOC  SET  */ 

ICSOCW3SSMW7  LITERALLY  '40H'; 

/»  SPECIAL  MASK  MODE  RESET  •/ 

. . ‘ . 

**»****«•#*#*#*«■««•*#*»***##  »«»«  »«***»/ 

/• 

V 

.*•  -  ' 

•  . 

/*  PROCEDI 'RE 

IN  1 T 1 AL 1 ZESBOARD 

INITIALIZES  THE  HARDWARE  PORTS  V 

-  ■  — 

/» 

V 

•*  • 

H  -  01 

• 

* 

•-  *-  ‘  \ 

l 

■ . '  . 

‘i-' £=/ -v: vis*: 

’’ *  -"i 
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38  1 


39  2 

40  2 

41  2 

42  2 

43  2 

44  2 

43  2 

46  2 

47  2 

48  2 

49  2 

90  2 

51  2 

5?  2 

5  5  2 


/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/' 

/* 

/* 

/* 

/*' 


THE  PURPOSE  OK  THIS  PROCEDURE  IS  TO  INITIALISE  ALL  THE  HARDWARE  */ 

PORTS,  TO  INCLUDE  THE  PARALLEL  PORTS,  THE  CLOCK/TIMCRS,  THE  */ 

INTERRUPT  CONTROLLER ,  AND  THE  FOUR  USARTS.  PORT  0  IS  USED  TO  */ 
COMMUNICATE  WITH  AN  EXTERNAL  TERMINAL.  PORTS  1,  2,  AND  3  ARE  */ 
USED  TO  COMMUNICATE  WITH  EXTERNAL  HOSTS.  */ 

V 

INPUT  -  NONE  V 

PROCESSING  -  SETS  THE  VECTOR  INTERRUPT  TABLE  VALUES  AND  WRITES  THE  */ 
CONTROL  WORD  TO  THE  PIC,  PIT,  P°l,  AND  USARTS.  V 

OUTPUT  -  NONE  V 

INTERFACE  -  CALLED  BV  MAIN  PROGRAM.  V 

V 

. . . 


/*  INITIALIZE.  8155  PROGRAMMABLE  PERIPHERAL  INTERFACE  (PPI) 

/*  SET  DATA  RATCS  FOR  LOCAL  CHANNEL  USARTS: 

/*  SET  PIT  #1,  REGISTER  40  FOR  USART  40  DATA  RATE 

/*  SET  PIT  41,  REGISTER  41  FOR  USART  41  DATA  RATE 

/*  SET  PIT  41,  REGISTER  42  FOR  USA^T  42  DATA  RATE 

/*  SET  PIT  42,  REGISTER  40  FOR  USART  43  DATA  PATE 

/*  INITIATE  RESET  ON  ALL  USARTS 

/*  INITIALIZE  THE  FOUR  USARTS  TO:  2  STOP  BITS,  NO  PARITY, 

/*  8  BIT  CHARACTERS,  AND  1 6X  DATA  PATE 

/*  INITIALIZE  THE  8259  PROGRAMMABLE  INTERRUPT  CONTROLLER 

*###*#*-***#*#**#****»»**#«  *#*#«**# 

*  DEVICE  INITIALIZATION  SECTION  * 

************»*»*»*#*»**»**»•»» *»►»»« j 

INITIAL  I ZESBOARD: 

/*  THIS  PROCEDURE  INITIALIZES  THE  I  SBC  544  BOARD  V 
PROCEDURE; 

PltlNIT:  /*  8155  PARALLEL  INTERFACE  INITIALIZATION  V 

OUTPUT (PI $CMD)  =  PltlNITSCMDI ; 

OUTPUT(PltPORTA)  =  P I  $  I N I TSUSS INT! ;  /*  RESETS  THE  8251  USARTS  V 
OUTPUT (P I JPORTA)  =  PI  $  I N I TJUSSINT2; 

OUTPUTtPI  JCNTRJLO)  *  PlSCNTRSLOCNT; 

OUTPUT (P I SCNTRSH I )  -  PI  SCNTRSH I CNT; 

OUTPUT (P I $CMD)  =  PI  $  I N I T$CK)2; 


V 

V 

V 

V 

V 

V 
*/ 

V 
*/ 

V 


ITIINIT:  /»  8253  INTFRVAL  TIMER  INITIALIZATION  */ 

BREO  =•-  B9600 ; 

8RFI  =  696  00; 

BPE?  =  B9600 ; 

GRr3  =  89600; 

OUTPUT!  I  T1SC0NT)  =  USARTS CNTRIM3;  /*  USART  0  V 

OUTPUT ( I T1 SCNTRO)  =LOW(BRPO); 

OUTPUT! I T1SCNTR0)  =  H I GHIRRT 0) ; 

OUTPUT!  I T1SC0NT)  *  40H  OP  U.3ARMCNTRSM3;  /*  USART  1  */ 
OUTPUT!  I  T1SCNTR1)  -  lOW(RRri): 
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54 

2 

OUTPUT!  IT1SCNTR1  ) 

=  HIGHfBRFI ); 

55 

2 

OUTPUT!  IT1SC0NT) 

=  80H  OR  USARTSCNTRSM3; 

/* 

USAPT 

2  */ 

56 

2 

OUTPUT! IT1SCNTR2) 

=  L0WIBRF2); 

57 

2 

OUTPUT! 1TISCNTR2) 

=  HIGH!BRE2); 

58 

2 

OUTPUT! IT2SC0NT) 

=  USARTSCNTRSM3; 

/* 

USART 

3  */ 

59 

2 

OUTPUT!  1 T2SCNTR0 ) 

=  L0W!RRF3! ; 

60 

2 

OUTPUT! IT2SCNTR0) 

=  HIGH (BRF3) ; 

61 

2 

ICS  IN  IT:  /*  8259  INTERRUPT  CONTROLLER 

INITIALIZATI 

ON  V 

/*THE  FOLLOWING  COOE  INITIALISES  THE  8259A.  THE  INTERRUPTS  ARE 

USED  TOR  THIS  PROGRAM.  ALL  INTERRUPTS  ARE  ON  EXCEPT  FOR  THE  RST  TYPES  */ 

OUTPUT! ICSPORTA)  =  ICSICWI; 

62  2  OUTPUT ( I CSPORTR )  =  ICS  I CW2 ; 

63  2  OUTPUT! I CSPORTB)  =  I N I TSMASK;  /*  OCW1  V 

64  2  OUTPUT( ICSPORTA)  =  ICSEOI;  /*  OCW2  V 

65  2  OUTPUT! ICSPORTA)  =  ICSOCW3IS;  /*  OCW3  */ 

66  2  ISRSSTAT  =  INPUT! ICSPORTA); 

67  2  USSINIT:  /*  INITIALIZE  THE  USARTS  V 

/*  ASYNC  MODE,  8  DATA  BITS,  1  STOP  BIT,  NO  PARITY,  *16  CLOCK 
OTR,  RTS  ON,  RECV  ON,  TRANSMIT  OFF  V 

OUTPUT(USSPOSCMD)  =  USSMOOE: 

68  2  OUTPUTT USSPOSCMD)  =  USARTON; 

69  2  OUTPUT (USSP1 SCMD)  =  USSMOOE; 

70  2  OUTPUT(USSPISCMJ)  =  USARTON; 

71  2  OUTPUT (USSP2SCMD)  =  USSMOOE; 

72  2  OUTPUT (USSP2SCMD)  =  USARTON; 

73  2  OUTPUT (USSP3SCMD)  =  USSMOOE; 

74  2  OUTPUTT USSP3SCMD)  =  USARTON; 

75  2  END  I N I T I AL I ZESBOARD; 

PROCEDURE  INIT  INITIALIZES  THE  TABLE  POINTERS  AND  VARIABLES 

PURPOSE  OF  THIS  PROCEDURE  IS  TO  INITIALIZE  THE  INTERRUPT  JUMP  TABLE,  AND 
OTHER  OATA  TABLE  VAR  I  ARI  ES  AND  BOOLEAN  FLAGS 

INPUT  -  NONE 

PROCESSING  -  THE  INTERRUPT  JUMP  TABLE  IS  I N I T I  ALL  I  ZED  ALONG  WITH  THE  DATA 
TABLE  AND  BOOLEAN  FLAG  VARIABLES 

OUTPUT  -  INITIALIZED  INTERRUPT  TABLE  AND  DATA  TABLE  VARIABLES 

INTERFACE  -  CALLCD  BY  MAIN  PROCEDURE 

»»**•»•*»»*»»»**»»*  **»#**»»»*»»*»*♦»»»*»*«»»»»*»*»*»*»»»*»•*»»»»»»*«»»  »»*»/ 

76  1  INIT:  PROCEDURE; 


H 
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u 


77  2  DECLARE  I  BYTE; 

/*  THE  FOLLOWING  CODE  INITIALIZES  THE  JUMP  TARLE  IN  8155  RAM  TO  POINT 
TO  THE  USER'S  INTERRUPT  SERVICE  ROUTINES  AT  INTRSVFCTORS5S5,  ETC.  V 

/*  ADDR  =  . INTRSVECTORS5S5; 

VECTORSTABLE  =  JUMPS CODE; 

ADOR  =  ADOR  +  1; 

VECTORSTABLE  =  LOW (VECTORS  TABLE SBASE ) ; 

ADDR  =  ADDR  +  1  ; 

VECTORSTABLE  =  HIGH(VECTORtTABLESBASE) ; 

ADDR  =  . INTRSVECTORS6S5; 

VECTORSTABLE  =  JUMPSCODE; 

ADDR  =  ADDR  +  1 ; 

VECTORSTABLE  =  LOW(VECTORSTABLESBASE  +  3); 

ADDR  =  ADOR  +  1; 

VECTORSTARLE  =  H I GH{ VECTORSTARLESBASE  +  3); 

ADDR  =  . INTRSVECTORS7S5; 

VECTORSTARLE  =  J'Jff’SCODE; 

ADDR  =  ADDR  +  1 ; 

VECTORSTARLE  =  LOWCVECTORSTABLESBASE  +  61; 

ADDR  =  AODR  +  1 ; 

VECTORSTABLE  -  H I3H( VECTORSTARLESBASE  +  6); 


/*  INITIALIZES  8155  JUf*>  TABLE  TO  JMP  0  V 


78 

2 

1  =  0; 

79 

2 

ADOR  =  VECTORSTARLESBASE; 

80 

2 

DO  WHILE  1  <=  11 

81 

3 

VECTORSTABLE 

=  JUMP’S  CODE; 

82 

3 

ADDR  =  ADOR  +  1 ; 

83 

3 

VECTORSTABLE 

=  0; 

84 

3 

ADDR  -  ADDR  +  1 ; 

85 

3 

VECTORSTABLE 

=  0; 

86 

3 

ADOR  =  ADDR  +  1 ; 

87 

3 

1=1+3; 

83 

3 

END; 

89 

2 

BYTESSSENTS1  =  0 

90 

2 

BYTESSSENTS2  =  0 

91 

2 

BYTESSSENTS3  =  0 

92 

2 

BYTESSSENTS4  =  0 

93 

2 

BYTESSRECVS 1  =  0 

94 

2 

BYTESSRECVS2  =  0 

95 

2 

BYTESSRECVS3  =  0 

96 

2 

BYTESSRECVS 4  =  0 

/*  =  7FF4H  V 
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97 

2 

SENOSI  =  FALSE; 

98 

2 

SENDS  2  =  FALSE; 

-  -- 

99 

2 

SENDS3  =  FALSE; 

100 

2 

SENDS  4  =  FALSE; 

101 

2 

TRTAS1 ,TXTRS! .TXTASl .RXTRS1 ,RXTAS1  *  FALSE; 

•  *  -  • 

102 

2 

TRTA$2,TXTRS2,TXTAS2,RX TRS2.RXTAS2  =  FALSE; 

■V-V- 

103 

2 

TRTAS3,TXTRS3,TXTAS3,RXTRS3,RXTAS3  =  FALSE; 

104 

~t 

TRTA$4,TXTRS4,TXTAS4,RXTRS4,RXTAS4  =  FALSE; 

105 

2 

CHARS  1  =  *  1  * 

106 

2 

CHARS 2  =  '2' 

107 

2 

CHARS3  »  '3' 

108 

2 

CHARS4  =  '4' 

.. 

109 

2 

CHARSX  =  'X' 

1 10 

2 

END 

INIT; 

/** 

******************************  **********  ************************  »»»*»**/ 

/* 

PROCEDURE  INITSTAB  INITIALIZES  THE  LOCAL  TABLES  AND  PROGRAM 

*/ 

•  ■* 

/* 

VARIABLES 

*/ 

/* 

V 

/* 

THIS  PROCEDURE  SETS  THE  LOCAL  AND  NETWORK  TABLES  TO  THEIR 

*/ 

/* 

INITIAL  VALUES  PRIOR  TO  PROCESSING  ANY  MESSAGES.  IN  ADDITION, 

V 

;  • 

/* 

THE  PROGRAM  VARIABLES  ARE  SET  TO  THEIR  INITIAL  VALUES. 

V 

•  • 

/* 

*/ 

/* 

INPUTS  -  NONE 

V 

* 

/* 

*/ 

/* 

PROCESSING 

PUTS  INITIAL  VALUES  IN  THE  LOCAL  TABLES 

V 

/* 

V 

/* 

OUTPUT  -  NONE 

V 

•  ’  y < 

/* 

V 

/* 

INTERFACE  - 

CALLED  BY  THE  MAIN  PROCEDURE 

V 

/* 

V 

/*****#********  *****  *************************************** *******  ********  / 

111 

1 

INITSTAB:  PROCEDURE; 

- 

112 

2 

DECLARE  1 X 

BYTE; 

113 

2 

LSGMS1  *  DONC;  /*  INITIALIZATION  OF  THE  SEMAPHORE  FLAGS  V 

114 

2 

LSEMS2  *  DONE; 

1 15 

2 

L SEMI 3  -  DONE; 

_  -  ‘ 

116 

n 

i. 

LSEMS4  =  DONE; 

117 

2 

NSEMSI  =  DONE; 

*-  , ’ •  i 

113 

2 

NSEMS2  =  DONE; 

•V-V) 

119 

2 

L SPARES!  =  0 

/*  THE  SPARE  ADDRESS  LOCATIONS  SHOULD  BE  SET  TO  THE 

V 

120 

2 

LSPARES2  =  0 

/*  SCGMENT  NUMBER  INTO  WHICH  THE  LOCAL  BOARD  MEMORY 

V 

-  *  •  ’  * 

121 

2 

L SPARE S3  =  0 

/*  WILL  BE  MAPPED  INTO  SYSTEM  MEMORY.  THIS  VALUE  IS 

V 

—  m 

122 

2 

L SPARES 4  =  0 

/*  CURRENTLY  0  FOR  THE  LSPARESX  VARIABLES. 

*/ 

H  -  85 
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123 

2 

NSPAREJ1  =0;  /*  SAME  AS 

124 

2 

NSPARES2  =  0; 

125 

2 

LPTRJ1  =  0; 

126 

2 

LPTRJ2  =  0; 

127 

2 

LPTRS3  =  0; 

128 

2 

LPTRJ4  =  0; 

129 

2 

NPTRJ1  =  0; 

130 

2 

NPTRS2  =  0; 

131 

2 

NT01NS  =  0; 

132 

2 

NT01NE  =  0; 

133 

2 

NT01SZ  =  FRAMES TABLESSIZE; 

134 

2 

NT02NS  =  0; 

135 

2 

NT02NE  =  0; 

136 

2 

NT02SZ  =  FRAMEJTABLESSIZE; 

137 

2 

LC01N3  =  0; 

138 

2 

LC01NE  =  0; 

139 

2 

LC01SZ  =  PACKETSTABLEJSIZE; 

1  4f 

2 

LC02NS  =  0; 

141 

2 

LC02NE  =  0; 

142 

2 

LC02SZ  =  PACKETSTABLEJSIZE; 

143 

2 

LC03NS  =  0; 

144 

2 

LC03NE  =  0; 

145 

2 

LC03SZ  =  PACKETSTABLEJSIZE; 

146 

2 

LC04NS  =  0; 

147 

2 

LC04NE  =  0; 

148 

2 

LC04SZ  =  PACKETSTABLEJSIZE; 

149 

2 

TX01NS  =  0; 

150 

2 

TX01NE  =  0; 

151 

2 

TX01SZ  =  OAT  ASTABLESS 1 ZE ; 

152 

2 

TX02NS  =  0; 

153 

2 

TX02NE  ”  0; 

154 

2 

TX02SZ  =  OATASTABLEISI ZE ; 

155 

2 

TX03NS  =  0; 

156 

2 

TX03NE  =  0; 

157 

2 

TX03SZ  =  DATAJTABLESSI ZE; 

158 

2 

TX04NS  =  0; 

159 

2 

TX04NE  =  0; 

160 

2 

TX04SZ  =  DATAJTABLESSI ZE; 

PL/M-80  CONPILER 
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161  2  IX  =  0; 

162  2  DO  WHILE  IX  <  STATSNBR; 

163  3  STATTB(IX)  =  0; 

164  3  1 X  =  I X  +  1 ; 

163  3  END; 


166 


END  1 N I T$  TAB; 


/****##«#*##*##******IHM*#*»#*ll*-*«**#**#*1HHt***##**HHHHHHHHHHt#»**»-IMHH»***/ 


/*  PROCEDURE  SNDSEQ  SENDS  DATA  TO  LOCAL  MONITOR  FOR  TESTING 


THIS  PROCEDURE  TAKES  A  MESSAGE  STRING  AMD  OUTPUTS  IT  TO 

THE  LOCAL  MONITOR  ATTACHED  TO  PORT  0  OF  THE  344  BOARD 

INPUT  -  A  POINTER  TO  THE  MESSAGE  LOCATION  IN  MEMORY  AND  THE 
NUMBER  OF  BYTES  TO  BE  SENT. 

PROCESSING  -  THIS  PROCEDURE  CHECKS  THE  OUTPUT  BUFFER  STATUS 
IN  A  LOOP  UNTIL  THE  BUFFER  IS  EMPTY.  IT  PLACES  ONE 
BYTE  AT  A  TIME  IN  THE  OUTPUT  USART  UNTIL  THE  MESSAGE 
IS  OONE. 

OUTPUT  -  MESSAGE  TO  THE  USART  0  PORT. 

INTERFACE  -  THIS  PROCEDURE  IS  CALLED  BY  VARIOUS  PROCEDURES. 


V 
*/ 

V 

V 

V 

*/ 

V 

V 

V 

V 

V 
*/ 

V 

V 


167  1  SNDSEQ:  PROCEDURE (MSG,  TOTAL); 

168  2  DECLARE  MSG  ADDRESS, 

CHAROUT  BASEO  MSGCU  BYTE; 

169  2  DECLARE  (COUNT,  TOTAL)  BYTE; 

170  2  COUNT  *  0; 

171  2  LOOP;  DO  WHILE  COUNT  <  TOTAL; 

172  3  DO  WHILE  NOT  (  INPU  HUSSPOSSTAT)  AND  1);  END; 

174  3  O'JTPUT(UStP0$DATA)  =  CHAROUT (COUNT) ; 

175  3  COUNT  =  COUNT  *■  1; 

176  3  END  LOOP; 

177  2  END  SNDSEQ; 


/»*»*»»»**»»»»»»*»***♦**»»»««»**»*»»#»*»•#»*»»»*»•»»»»»«•»*«»»»»**»»»»*»* 

PROCEDURE  LDJTA3JH5KP  LOAD  TABLE  HOUSEKEEP 


THE  PURPOSE  OF  THIS  PROCEDURE  IS  TO  HOUSEKEEP  A  SPECIFIED  BUFFER 
TABLE  AFTER  LOADING  OF  THE  USER  DATA  FROM  THE  HOST. 


INFUT  -  THE  INPUT  IS  A  BYTE  INDICATING  THE  TABLE  REQUIRING 
CHANGES. 

PROCESSING  -  THE  PROCEDURE  DETERMINES  THE  TABLE  TO  BE  PROCESSED, 
AOVANCES  THE  NEXTtEMPTYtBYTE  ADDRESS  BY  ONE  PACKET,  DATAGRAM, 
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OR  FRAME  AND  ADJUSTS  FOR  BUFFER  WRAP  IF  NECESSARY. 

OUTPUT  -  THE  SPECIFIED  TABLE  HAS  ITS  NCXTtEMPTYtBYTE  ADDRESS 

ADVANCED  BY  THE  LENGTH  OF  A  SINGLE  PACKET,  DATAGRAM  OR  FRAME. 

INTERFACE  -  THIS  PROCEDURE  IS  CALLED  BY  PROCEDURE  VARIOUS  PROCEDURES. 


178  I 

1 79  2 

ISO  2 
181  2 

182  3 


183  3 

184  4 

185  4 

186  4 

187  4 

188  3 

189  4 

190  4 

191  4 

192  4 

193  3 

194  4 

195  4 

196  4 

197  4 

198  3 

199  4 

200  4 

201  4 

202  4 

203  3 

204  4 

205  4 

206  4 

207  4 


*»»»***#*»*»**»»*»*##***♦»»**»»*»**»*«**»»»•*•«  »»»•»»***»»»»#»»»»»*****«  *#  f 

LD$TAB$HSKP:  PROCEDURE ( TABLE )  ; 

DECLARE  TABLE  BYTE; 

IF  (TABLE  >=1  AND  TABLE  <=  10)  THEN  /*  8  FOR  REAL,  10  FOR  SIM  V 
DO  CASE  TABLE; 


/*  CASE  ZERO  IS  NULL  */ 

/*  CASES  1,  2,  3,  4  FOR  LC01 (2,3,4)  ARE  NOT  REQUIRED  AS  */ 

/*  THE  LCOXNS  POINTERS  ARE  INCREMENTED  AND  CHECKED  IN  THE  */ 
/*  RECEIVE  DATAGRAM  INTERRUPT  ROUTINES.  USE  FOR  SIMULATION  */ 
/*  PURPOSES  ONLY.  CASE  9  IS  FOR  SIMULATION  ONLY  »/ 


DO; 

LC01NE  =  LC01NE  +  PACKETSSIZE; 
IF  LC01NE  >=  LC01SZ  THEN 
LCD  1  NT  =  0; 

END; 

DO; 

LC07NE  =  LC02NE  +  PACKETJSIZE; 
IF  LC02NE  >=  LC02SZ  THEN 
LC02NE  =  0; 

END; 


DO; 

L CO ONE  =  LC03NE  *  PACKETSSIZE; 
IF  LC03NE  >=  LC033Z  THEN 
LC03NE  =■  0; 

END; 


DO; 

LC04NE  =  LC04NE  >■  PACKET$SIZE; 

IF  LC04NE  >=  LC04SZ  THEN 
LC04NE  =  0; 

END; 

DO; 

TXO'NE  =  TX01NE  +  DATA$GRAMtS I ZF ; 
IF  TX01NE  >*  TX01SZ  THEN 
TX01NE  =  0; 

END: 
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208  3 

209  4 

210  4 

211  4 

212  4 

213  3 

214  4 

215  4 

216  4 

217  4 

218  3 

219  4 

220  4 

221  4 

222  4 

223  3 

224  4 

225  4 

226  4 

227  4 

228  3 

229  4 

230  4 

231  4 

232  4 

233  3 


234  2 

235  3 

236  3 
23  7  3 

238  2 


00; 

TX02NE  =  TX02NE  +  DATAt GRAMS SIZE; 
IF  TX02NE  >=  TX02SZ  THEN 
TX02NE  =  0; 

END; 

DO; 

TX03NE  =  TX03NE  +  DATAJCRAMSSIZE; 
IF  TX03NE  >=  TX03SZ  THEN 
TX03NE  =  0; 

END; 


DO; 

TX04NE  =  TX04NE  +  DATAIGRAMSS I ZE ; 
IF  TX04NE  >=  TX04f>Z  THEN 
TX04NC  =  0; 

END; 

00; 

NT01NE  =  NT01NE  +  FRAMEtSIZE; 

IF  NT01NE  >=  NT01SZ  THEN 
NT01NE  =  0; 

END; 

DO; 

NT02NE  =  NT02NE  *  FRAMES  S 1  ZE; 

IF  NT02NE  >=  NT02SZ  THEN 
NT02NE  =  0; 

END; 


END; 


ELSE 

DO; 

STATTBI7)  ■=  STATTB(7)  +  1; 
STATTB(O)  =  STATTO(O)  +  1; 

END; 


END  LDSTA0SHSKP; 

♦*#**►**#******#****•»*#**►»»*»*#*#**»■**»#***  *#*»*##** 

PROCEDURE  SRVCJTABSHSKP  SERVICE  TABLE  HOUSEKEEP 

THE  PURPOSE  OF  THIS  PROCEDURE  IS  TO  HOUSEKEEP  A  SPECIFIED 
DUFFER  TABLE  AFTER  SERVICING  (REMOVING  A  PACKET). 

INPUT  -  THC  INPUT  IS  A  BYTE  VALUE  INDICATING  THF  TAPI  E  THAT 
REQUIRES  HOUSEKEEPING. 

PROCESSING  -  THE  PROCEDURE  DETERMINES  THE  TABLE  TO  BE  PROCESSED, 

AOVANCCS  THE  NEXTSBYTESTOSBESSERVICED  ADDRESS  BY  A  PACKET ,  DATAGRAM, 


H  -  89 
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OR  A  FRAME  AND  ADJUSTS  FOR  BUFFER  WRAP  IF  NECESSARY. 

OUTPUT  -  THE  SPECIFIED  TABLE  HAS  ITS  NEXTSBYTESTOSRESSERV I CED  ADDRESS 
ADVANCED  BY  THE  LENGTH  OF  A  SINGLE  PACKET,  DATAGRAM  OR  FRAME. 

INTERFACE  -THIS  PROCEDURE  IS  CALLED  BY  PROCEDURE  ROUTES  IN  AMD  ROUTE SOU T. 


»*!►***#**»»****#*»  ***  ****-»»»**»  **»*»•■***  »#**»»  »*♦»»»*  »«****  * '»***»**  ******  / 


239  I 

240  2 

241  2 

242  2 

243  3 

244  3 

243  4 

246  4 

247  4 

248  4 

249  3 

250  4 

251  4 

282  4 

253  4 

254  3 

255  4 

256  4 

257  4 

258  4 

259  3 

260  4 

281  4 

262  4 

263  4 


264  3 

265  4 

266  4 

267  4 

268  4 


SRVCSTABSHSKP:  PROCEDURE ( TABLE )  ; 

DECLARE  TABLE  BYTE; 

IF  (TABLE  >=  1  AND  TABLE  <=  10)  THEN  /*  3  FOR  REAL,  10  FOR  SIM  V 
DO  CASE  TABLE; 


/*  CASE  ZERO  IS  NULL  V 


DO; 

LCOINS  =  LC01NS  +  PACKETSS I ZE; 
IF  LCOINS  >=  LC01SZ  THEN 
LCOINS  =  0; 

END; 


DO; 

LC02N5  =  LC02NS  +  PACKETSS I ZE; 
IF  LC02NS  >=  LC02SZ  THEN 
LC02NS  -  0; 

END; 


DO; 

LC03NS  =  LC03NS  +  PACKETSSIZE; 
IF  LC03NS  >=  LC03SZ  THEN 
LC03NS  =  0; 

END; 


DO; 

LC04NS  =  LC04NS  +  PACKETSSIZE; 

IE  LC04N3  >=  LC043Z  THEN 
LC04NS  =  0; 

END; 

/*  CASES  5,  6,  7,  8  FOR  TX01 (2,3,4)  ARE  NOT  REQUIRED  AS  V 
/*  THE  TYOXNS  POINTERS  ARE  INCREMENTED  AND  CHECKED  IN  THE  V 
/*  TRANSMIT  DATAGRAM  INTERRUPT  ROUTINES.  USE  FOR  SIMULATION  V 
/*  P'IPPOSES  ONLY.  CASE  9  IS  for  SIMULATION  ONLY  V 


00; 

TX01N3  =  TX01NS  +  DATASGRAMS3IZE; 
IT  TX01NS  TX01SZ  THEN 
TX01NS  «  0; 

END; 


H 


90 
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269 

3 

DO; 

270 

4 

TX02NS  =  TX02NS  +■  DATA.tGRAMTSIZE 

271 

4 

IF  TX02NS  >=  TX02SZ  THEN 

272 

4 

TX02NS  =  0; 

273 

4 

END; 

274 

3 

DO; 

275 

4 

TX03NS  -  TX03NS  ♦  OATAtGRAMtSIZE 

276 

4 

IF  TX03NS  TX03SZ  THEN 

277 

4 

TX03NS  =  0; 

279 

4 

END; 

279 

3 

DO; 

290 

4 

TX04NS  =  TX04NS  +  DAT  AJGRAMJS 1 ZE 

281 

4 

IF  TX04NS  >*  TX04SZ  THEN 

282 

4 

TX04NS  =  0; 

283 

4 

END; 

284 

3 

DO; 

285 

4 

NT01NS  *  NT01NS  +  FRAME  IS i ZE; 

286 

4 

IF  NT01NS  >=  NT01SZ  THEN 

297 

4 

NT01NS  =  0; 

288 

4 

END; 

289 

3 

DO; 

290 

4 

NT02NS  =  KT02MS  +  FRAMEJSIZE; 

291 

4 

IF  NT02N3  >=  NT02SZ  THEM 

29? 

4 

NT02M5  •-  0; 

2)3 

4 

END; 

294 

3 

ENO; 

ELSE 

295 

2 

o 

o 

296 

3 

STATTB(O)  =  STATTB(8)  +  1; 

297 

3 

STATTB(O)  -  STATTB(O)  +  1; 

298 

3 

END; 

299 

2 

ENO  SRVCtTABtHSKR; 

/»** . ..................MOM,.,,,.., . . . . 

/*  INCLUOES  THE  INTERRUPT  DRIVER  ROUTINES  FROM  A  SEPARATE  FILE.  V 

. . . . * . . . 


$  INCLUDF( INTR.LOC) 

. . . . . . . . . 

PROCEDURE  PXINtl  RECEIVES  DATA  FROM  PORT  ONE  OF  FOUR  ON  THE  SRC  544 
PURPOSE  OF  THIS  PROCEDURE  IS  TO  RECEIVE  A  CHARACTER  FROM  THE  SBC  TERMINAL 
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INPUT  -  INTERRUPT  FROM  THE  TERMINAL 

PROCESSING  -  THE  RECEIVED  CHARACTER  IS  INPUT  FROM  USART  0  AND  ECHOED 
BACK  TO  THE  TERMINAL.  THE  RECEIVE  INTERRUPT  IS  CLEARED. 

OUTPUT  -  THE  RECEIVED  CHARACTER  IS  PUT  INTO  THE  CI-IARlX  VARIABLE. 

INTERFACE  -  CALLED  BY  RE AD t LINE  PROCEDURE 

****»»*»#»»*»  **«****»*«»*»»»*«■»**«*»»*»«»***♦**»**  *«•»«»»»*»»»»*»*»*»*»*»»/ 


300 

1 

RXINS1:  PROCEDURE  INTERRUPT  3; 

301 

2 

= 

CHARSX  =  1 NPUT(USSPOSDATA) ; 

302 

2 

= 

OUTPUT (USSPOSDATA)  =  CHARSX 

303 

2 

= 

OUTPUT( ICSPORTA)  =  ICSEOI 

304 

2 

- 

END  RXINS1 ; 

J*  »*»*»*»****»»«****»»»»»»*»»»»*»*«*» 

PROCEDURE  TXOUTtl  A  DUMMY  INTERRUPT  STUB 

PURPOSE  OF  THIS  PROCEDURE  IS  TO  PROVIDE  A  DUMMY  STUB  FOR  THE  TERMINAL 
INTERRUPT  HANDLER. 

INPUT  -  INTERRUPT  FOR  THE  TERMINAL  TRANSMIT 
PROCESSING  -  CLCAR  THE  TRANSMIT  INTCRRUPr 
OUTPUT  -  CLEARED  INTERRUPT 
INTERFACE  -  NONE 

**#***%#*•  ************  ***»**#*1MM»  »*##*»**»*«*■#************»  ******  !***»»**/ 

305  1  =  TXOUTSI;  PROCEDURE  INTERRUPT  9; 

306  2  *  OUTPUT ( I CtPORTA)  =  ICSEOI; 

307  2  =  END  TXOUTSI; 

,  /*»»  »»»**»*»*****•*»»•»»»»►»*»*»»**»»»*»  «»»»»*»»*»»»•*•»>»»■**•»»»»*«  **»»•*/ 


-  /*  V 
=  /*  PROCF.DURC  SERV I CESRCVSI  RECEIVES  DATA  ONE  CHANNEL  ONE  */ 
=  /*  »/ 

-  /*  THE  PURPOSE  OF  THIS  PROCEDURE  IS  TO  TAKE  A  RECEIVED  CHARACTER  * ' 
»  /*  FROM  THE  RECEIVE  PORT  ONE  AND  PUT  IT  IN  THE  RECEIVE  ONE  »/ 
’  /'  BUFFER.  THE  TRTA  FLAGS  ARr  CHECK  rP  rOc>  USE  AND  THE  TRY  A  */ 
=  /*  SET  ACCORDINGLY.  THIS  ROUTINE  IS  TOTALLY  INTERRUPT  DRIVEN  V 
=  /*  AND  OPERATES  CONTINUALLY  AFTER  ' N I Tl AL I  TAT  ION.  V 
=  /•  */ 

-  /»  INPUT  -  INTERRUPT  ON  USART  1  */ 
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= 

/* 

*  / 

- 

/* 

PROCESSING  -  MOVES  A  BYTE  OF  DATA  FROM  THE  RECEIVE  USART  TO 

V 

- 

/* 

MEMORY.  THE  TRTA  FLAGS  ARE  CHECKED  AMD  APPROPRIATELY  SET. 

V 

= 

/* 

V 

= 

/* 

OUTPUT  -  RECEIVED  CHARACTER  AND  APPROPRIATELY  SET  TRTA  FLAGS. 

V 

/* 

V 

= 

/» 

INTERFACE  -  INTERRUPTS  SET  DURING  INITIALIZATION. 

*  / 

/* 

*  ACTIVATED  BY  USART  1  * 

*/ 

/* 

V 

/* 

NOTE:  THE  SAME  PROCEDURE  IS  USED  FOR  USARTS  ?  AND  3  WITH  APPROPRIATE 

V 

/* 

MODIFICATIONS  OF  THE  VARIABLE  NAMES. 

V 

- 

/*** . . . . . . . * . / 

308 

1 

SERV 1 CESRCVT2 :  PROCEDURE  INTERRUPT  10; 

309 

2 

= 

CHAR $2  =  INPUT(U3tP1 $DATA) ; 

310 

2 

= 

IF  ((NOT  TRTAS2)  OR  ( (RXTRt2  AND  TXTAA2)  AND 

= 

((NOT  TXTR$2)  AND  (NOT  RXTA$2)>>)  THEN 

311 

2 

DO; 

312 

3 

- 

LC02RX(LC02NE  +  5)  --  CHAR *2; 

313 

3 

- 

DYTES$RECV$2  »  3YTES$RECV$2  +  1  ; 

314 

3 

- 

LC02NE  -  I.C02NE  +  1  ; 

315 

3 

= 

IF  RYTE5tRECVt2  >=  DATAtORAMtSI/E  THr  1 

316 

3 

- 

DO; 

3)7 

4 

= 

LC02NE  =  LC02NC  +  5; 

318 

4 

* 

IF  (LC02NE  >-■'  LC02SZ)  THEN 

319 

4 

LC02NE  =  0; 

320 

•1 

= 

BYTEStRECV$2  *  0; 

321 

4 

3 

RXTRT2  -  FALSE; 

322 

4 

r 

TXT At  2  =  FALSE; 

323 

4 

SEND$2  =  FALSE; 

324 

4 

END; 

375 

3 

~ 

END; 

726 

2 

= 

IF  TRTAt 2  THEN 

32  7 

2 

- 

DO; 

328 

7 

IP  CHART 2  --  TA  THEN 

529 

3 

IF  ( ( TXTRt2  AND  (HOT  RX T A 1 7 ) )  AND 

- 

((NOT  RXTRt?)  AND  (NOT  TxlAt.’M)  THEN 

330 

3 

DO; 

331 

4 

RXTAtZ  =  TRUE; 

332 

4 

- 

ST’:Dt2  =  FALSE; 

33  7 

4 

•= 

CALL  SNDSEQ( .  TPt  rC,  S 1  ZL  (  IPf  50  I ) ; 

334 

4 

= 

END; 

335 

5 

- 

IF  CIIARt?  =  TR  THEN 

7  36 

3 

= 

IE  (((NOT  RXTRtZ)  AND  ( ?ICT  TXT  At  2) )  AND 

- 

((NOT  FXTRI2)  AND  'NO!  RXTA4?>)>  THIN 

337 

3 

9- 

DO; 

338 

4 

= 

RXTRt2  =  TRUE; 

339 

4 

= 

TXT  At  2  =  TRUE; 
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340 

4 

= 

SENDS 2  =  TRUE; 

341 

4 

= 

CALL  SNDSEQ( .TPS3B,  SI ZE ( TPS3B) ) ; 

342 

4 

= 

CALL  SNOSEQf . TPS3A,  SI ZE(TPS3A) ) ; 

343 

4 

OUTPUT(US$P1 SDATA)  =  TA; 

344 

4 

= 

END; 

345 

3 

- 

END; 

346 

2 

= 

OUTPUT1 ICSPORTA)  =  ICSEOI; 

347 

2 

=  END 

SERVICESRCVS2; 

#«**** ##**•■# ***** *******************************************************  * 


348 

1 

= 

SERV  ICESRCVS3:  PROCEDURE  INTERRUPT  12; 

349 

2 

= 

CHARS3  =  INPUT(USSP2SDATAJ; 

350 

2 

- 

IF  ((NOT  TRTAS3)  OR  ( (RXTRS3  AND  TXTAS3)  AND 

= 

((NOT  TXTRS3)  AND  (NOT  RXTAS3) ! ) )  THEN 

351 

2 

= 

DO; 

352 

3 

= 

LC03RX(LC03NE  +  5)  =  CHARS3; 

353 

3 

= 

BYTESSRECVS3  =  BYTESSRECVS3  +  1 ; 

354 

3 

= 

LC03NE  =  LC03NE  +  1; 

355 

3 

= 

IF  BYTESSRECVS3  >=  OATASGRAMSS ! ZE  THEN 

356 

3 

= 

o 

o 

357 

4 

= 

LC03NE  =  LC03NE  +  5; 

358 

4 

* 

1 F (LC03NE  >=  LC03SZ)  THEN 

359 

4 

= 

LC03NE  =  0; 

360 

4 

= 

9YTESSRECVS3  =  0; 

361 

4 

= 

RXTRS3  =  FALSE; 

362 

4 

= 

TXTAS3  =  FALSE; 

363 

4 

= 

SENDS3  =  FALSE; 

364 

4 

= 

END; 

365 

3 

= 

END; 

366 

2 

■= 

IF  TRTAS3  THEN 

367 

2 

= 

DO; 

368 

3 

= 

IF  CHAR $3  =  TA  THEN 

369 

3 

= 

IF  ( (TXTRS3  AND  (NOl  RXTAS3) )  AND 

= 

((NOT  RXT.RS3)  AND  (NOT  TXTAS3) ) 7 

THEN 

370 

3 

= 

00: 

371 

4 

RXTAS3  =  TRUE; 

372 

4 

= 

SENDS  3  =  FALSE; 

373 

4 

= 

CALI.  SNDSEQ( .  TPS  30,  SIZE  (TPS  30) ) ; 

374 

4 

= 

END; 

375 

3 

IF  CHARS 3  =  TR  THEN 

376 

3 

- 

IF  ('(NOT  RXTRS3)  AND  (NOT  TXTAS3) )  AND 

((NOT  TXTRS3)  AND  (NOT  R.XTAS5))) 

THCN 

377 

3 

= 

DO; 

3  78 

4 

RXTRS3  =  TRUE; 
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379  4  =  TXTAS3  =  TRUE ; 

380  4  =  SENDS 3  =  TRUE; 

381  4  =  CALL  SNDSEQt .TPS3B,  SI ZE< TPS30) ) ; 

382  4  =  CALL  SNDSE9( -TPS3A,  SIZE< TPS3A) ) ; 

383  4  =  0UTPUT(U$$P2S0ATA)  =  TA; 

384  4  »  END; 

389  3  =  END; 

386  2  =  OUTPUT ( I CSPORTA)  =  t  C«E0l ; 

387  2  =  END  SERV ICESRCVS3; 


/*»**#*»**♦»*#»»*►»*»*****<****#*«»»»*»♦»*»•« »»««» »♦»»»«»»»**»« »*»•*•»»»* 


388  1  »  SFRVICESRCVS4:  PROCEDURE  INTERRUPT  14; 


389  2  =  CHAR I 4  =  INPUT(UStP3jDATA) ; 


390  2 

391  2 

392  3 

393  3 

394  3 

395  3 

396  3 

397  4 

395  4 

399  4 

400  4 

401  4 

402  4 

403  4 

404  4 

405  3 


IF  ((NOT  TRTAJ4)  OR  ( (RXTRJ4  AND  TXT4S4)  AND 

((NOT  TXTRS4)  AND  (NOT  RXTA$4))>)  THEN 
DO; 

LC04RX(LC04NE  +  5)  =  CHARS4; 

BYTESSRECVS4  =  BYTESSRECVS4  +  1  ; 

LC04NE  =  LC04NE  +  1; 

IT  BYTESJRECVS4  >=  OATAtORAMSS I 2E  THEN 
DO; 

LC04NE  =  LC04NE  +  5; 

IF(LC04NE  >=  LC04SZ)  THEN 
LC04NE  =  0; 

BYTESSRECVS4  =  0; 

RXTRS4  =  FALSE; 

TXTA.S4  =  FALSE; 

SENDS 4  =  FALSE; 

END; 

END; 


406  2 

407  2 

408  3 

409  3 

410  3 

411  4 

412  4 

413  4 

414  4 

415  3 

416  3 

41  7  3 


IF  TRTAJ4  THCN 
00; 

IF  CHARM  -  TA  THEN 

IP  ( (TXTRS4  ANO  (NOT  RXT AM ) )  AND 

((NOT  RXIRI1)  AND  (NOT  TXTAS4) ) )  THEN 
DC; 

RXTAM  =  TRUE; 

SENDS 4  -=  FALSE; 

CALL  SNDSF0(.TTS3C,  S IZF  (  TPS  V,  1)  ; 

END; 

IT  CHAR  1 4  ■*  TR  rHEN 

IF  (((NOT  RXTRS4)  ANO  (NOT  TXTAS41)  AND 

((NOT  TXT9J4)  AND  (NOT  RX7AM ) ) )  THEN 
DO; 


M 
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/*###**##*«#***  »#***#*IM»»***»MHMH»»#**WI(*«***#<n.**#f»###*/ 


=  /*  PROCEDURE  SERV I CESTRAN5S1  SENDS  DATA  OUT  CHANNEL  ONE  */ 
=  /*  V 
=  /*  THE  PIIR°OSE  OF  THIS  PROCEDURE  IS  TO  SEND  A  DATAGRAM  OF  DATA  OUT  V 
=  /*  LOCAL  CHANNEL  ONE.  A  SINGLE  BYTE  IS  TRANSMITTED  EACH  TIME  AN  */ 
=  /*  INTERRUPT  IS  GENERATED  9Y  USART  ONE  ON  THE  TRANSMIT  SIDE.  »/ 
-  /*  V 
=  /*  INPUT  -  INTERRUPT  MASKED  ON  BY  CALLING  PROCEDURE  V 
’  /*  V 
=  /*  PROCESSING  -  SENDS  A  BYTE  01 T  DATA  FROM  THE  TRANSMIT  ARRAY  TO  V 
=  /*  THE  DATA  PORT.  WHEN  MESSAGE  IS  DONE  IT  RESETS  V 
=  /*  THE  TRANSMIT  INTERRUPT  AND  SETS  TRAN5$t*R0Y  TO  TRUE.  V 
,  /»  */ 

=  /*  OUTPUT  -  CHARACTER  OUTPUT  USART  I  V 

=  r  v 

*  /*  INTERFACE  -  CALLED  BY  V 
=  /*  V 
=  /*  NOTE:  THE  SAME  PROCEDURE  IS  USED  FOR  USARTS  2  AND  3  WITH  APPROPRIATE'/ 
’  /*  MODIFICATIONS  OF  THE  VARIABLE  NAMES.  */ 


429  I  =  SERV  ICF$TRANSt2:  PROCEDURE  INTERRUPT  11; 


429  2 

430  2 

431  3 

4  V  3 
4  7  3  3 

4  34  3 

13  3 

4  3^  4 
4  17  4 
138  4 

4 1R  4 

440  4 

441  4 

142  1 


IF  ((NOT  TRTAS2)  OR  ( ( TXTRS2  AND  RXT*S?)  AND 

((NOT  RXTRS2)  AND  (NOT  TXTA$2>>)>  THEN 
DO; 

OUTPUT (US$P1 SPAT A)  -  LC02 IX( TX02NS) ; 
BYTFSiSFNTt2  =  BYTESSSENTf?  +  1; 

TX02NS  -  TX02NS  +  1; 

IF  BY  TFStSENTJO  >=  PAT  A  SGRAMS  S I /E  THEN 
DO; 

OUTPUT!  I CfPORni)  =  INPUT! ICSPORTB)  OR  8; 
3YTEStSENT$2  -  0; 

IF  TX02NS  >*  TV02S,'  THEN 
TX02NS  =  0; 

TXTRS2  =  FALSE; 

RXTAS2  =  FALSE: 

SENDS  2  =  FALSE; 


Pl/M-80  COMPILER  LOCAL  NETWORK  TEST  PROGRAM,  2  OCT  198<t 


443  4 

444  4 

445  3 

446  2 

447  2 


CALL  SND$EQ(.TPJ4A,  SIZE(TPt4A) >; 
END; 

END; 

OUTPUT ( I CJPORTA)  =  ICJEOI; 

END  SERV ICESTRANSS2; 


/*»»#****»*♦»»*»*»♦»«•■»«»*»»**»****#*»*»»»***»*****♦»**»***•»*»»»»»»*»•»» 

448  1  «  SERVICEITRANSS3:  PROCEDURE  INTERRUPT  13; 


449  2 

450  2 

451  3 

452  3 

453  3 

454  3 

455  3 

456  4 

457  4 

458  4 

459  4 

460  4 

461  4 

462  4 

463  4 

464  4 

465  3 


IF  ((NOT  TRTAS3)  OR  ( (TXTRS3  AND  RXTAJ3)  AND 
((NOT  RXTRS3)  AND  (NOT  TXTA$3)>>>  THEN 
DO; 

OUTPUT(UStP?$DATA )  =  LC03TX( TX03NS) ; 
BYTESJSENTJ3  =  BYTES$SENTt3  +  1 ; 

TX03NS  =  TX03NS  +  1; 

IF  BYTESJSENTS3  >=  DATASGRAMtSI ZE  THEN 
DO; 

OUTPUT ( I CSPORTB)  =  INPUT( ICSPORTB)  OR  20H; 
BY TES$SENTI3  =  0; 

IF  TX03NS  >=  TX03SZ  THEN 
TX03NS  =  0; 

TXTRS3  =  FALSE; 

RXTAS3  =  FALSE; 

SEND $3  =  FALSE; 

CALL  SNDr.EQ(.rP$4A,  SIZE(TPt4A) ) ; 

END; 

END; 


468  2  =  OUTPUT ( ICtPORTA)  -  IC$EOI; 


467  2  =  END  SERV ICE$TPANSt3; 


468 


/****»**» . . . . . 

SERV ICEtTRANS$4 :  PROCEDURE  INTERRUPT  15; 


469  2 

470  2 

471  3 

4  72  3 

473  3 

474  3 

475  3 

476  4 

477  4 


IF  ((NOT  TRTAS4 )  OR  (<TXTR$4  AND  RXTAM)  AND 

((NOT  RXTRJ4)  AND  (NOT  TXTA34) ) ) )  THFN 
DO; 

0UTPUT(USSP3IDATA)  =  LC04TX( TX04NS) ; 
8YTESSSENTJ4  =  9YTEStSENT{4  +  1 ; 

TX04NS  =  TX04NS  +  1; 

IF  BYTEStSENTt4  DATASGRAM*GI  ZE  THEN 
DO; 

OUTPUT( ICJPORTB)  =  INPUT( 1C$P0RTB)  OR  80H; 
BYTES*SENT$4  =  0; 


H 


97 


♦  .*.**■#  *«■**.*****#*..*#***.***♦*.*.**.**.  *»  **»*»*.#»■*#****.#■.■♦*»**»*  ...  y 

/*  PROCEDURE  SENDIPACKET  PROCEDURE  FOR  TRANSFORMING  THE  USER  DATAGRAM  */ 


/*  INTO  A  PACKET  FOR  TRANSFER  INTO  THE  NETWORK  */ 
/*  SIDE  OF  THE  UNID.  V 
/*  V 
/*  THE  PURPOSE  OF  THIS  PROCEDURE  IS  TO  TRANSFORM  THE  HOST'S  */ 
/*  DATAGRAM  DELIVERED  TO  ONE  OF  THE  LOCAL  INPUT  SUFFERS  INTO  A  V 
/*  PACKET  AND  UPDATE  THE  POINTERS  AND  SEMAPHORES.  */ 
/*  THE  PROCEDURE  ADDS  THE  FIVE  HEADER  BYTES,  AS  FOLLOWS:  */ 
/*  1.1  BYTE  FOR  THE  DESTINATION  ADDRESS.  V 
/*  2.  1  BYTE  FOR  THE  SOURCE  ADDRESS.  V 
/*  3.  1  BYTE  FOR  THE  SEQUENCE  NUMBER.  */ 
/*  4.  1  BYTE  FOR  A  SPARE  (SPAREtOI).  */ 
/*  5.  1  BYTE  FOR  A  SPARE  (SPARES02).  V 
/*  */ 
/*  INPUT  -  THIS  PROCEDURE  RECEIVES  A  POINTER  THAT  INDICATES  THE  V 
/*  LOCAL  INPUT  BUFFER  WHERE  THE  INCOMING  HOST  DATA  IS  */ 
/*  LOCATED  AND  A  VARIABLE  THAT  INDICATES  FROM  WHICH  PORT  THE  */ 
/*  DATA  CAME.  */ 
/*  V 
/*  PROCESSING  -  THE  PROCEDURE  BEGINS  WITH  THE  PASSING  Or  THE  TABLE  V 
/*  WHERE  THE  HOST'S  DATA  IS  LOCATED.  THE  SOURCE  AND  */ 
/*  DESTINATION  ADDRESS  ( SOURCES ADDRESS,  DE ST  I  NAT  IONS ADORE  SSI  V 
/*  ARE  SUPPLIED  BY  THE  DETSAODR  PROCEDURE.  FOR  NOW,  THE  V 
/*  SEQUENCE  NUMBER  AND  BOTH  SPARE  BYTES  ARE  SET  TO  EERO.  IN  V 
/*  THE  FUTURE,  THESE  BYTES  WILL  REFLECT  X.25  PROTOCOL  USES.  V 
/*  */ 
/*  OUTPUT  -  THIS  PROCEDURE  PLACES  THE  FIRST  FIVE  BYTES  INTO  THE  */ 
/*  LOCAL  HOST  RECEIVE  BUFFER  TO  CREATE  A  PACKET.  THE  PACKET  */ 
/*  IS  POINTED  TO  BY  LPTR  AND  THE  SEMAPHORE  LSEM  IS  SET.  */ 
/*  V 
/*  INTERFACE  -  THF  PROCEDURE  IS  CALLED  FROM  PROCEDURE  ROUTES  IN  FOR  */ 
/*  THOSE  DATA  RACKETS  DCSTINED  FOR  THE  NETWORK  ONLY.  */ 
/* 

/*  NOTE:  THE  HEADER  INFORMATION  SUPPLIED  IS  FOR  DATAGRAM  SERVICE  •/ 
/*  ONLY.  ALSO,  THE  SEQUENCE  AND  SPARE  BYTES  ARE  SET  TO  ZERO  */ 


H 


OS 
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PROCESSING  -  THE  PROCEDURE  FIRST  EXTRACTS  THE  CON TROL $COOC  FROM  THE 
INCOMING  DATA  TO  DETERMINE  WHICH  ROUTING  SCHEMF.  IS  USED.  TIC 
COUNTRY SCOPE  AMD  NETWOPKSCOOE  APE  THEN  EXTRACTED  TO  DETERMINE 
THE  DATA’S  DESTINATION.  THE  HOST! CODE  IS  EXTRACTED  SO  THAT  THE 
DESTINATIONIADDRESS  CAN  BE  DETERMINED.  IE  THE  DATAGRAM  IS  DESTINED 
FOR  THE  NETWORK,  THE  SOURCE  ADDRESS  IS  ALSO  EXTRACTED  TOR  THE 
PACKET  HEADER. 

OUTPUT  -  THIS  PROCEDURE  PLACES  THE  DESTINATION  (0  OP  1)  IN  MEMORY 
FOR  THE  PASSING  ROUTINE  AND  RETURNS  THE  PEST INAT I  ON t ADDRESS. 
DESTINATION  =  -I  DENOTES  AN  ADDRESSING  ERROR  IN  THE  DATAGRAM 
HEADER.  THE  CALLING  PROCED'JRF  IS  EXPECTED  TO  OH*  '  K  FOP  MF  SI  I NA  T  I  ON 
=  -1.  FOR  THE  ERROR  CASE,  DESTINATION! ADDRESS  -  0.  AN  f  XAMt'LF  OF 
A  DESTINATIONSADDRESS  IS  21H,  WHICH  INDICATES  UN  I  OR  AND  CHANHF  I  "  1  . 

INTERF  ACE  -  THIS  PROCEDURE  IS  CALI  ED  BY  F'ROCI  DURF  ROIJ'Hm. 

NOTES:  1.  BYTE  AMO  OrH  WILL  MASK  OUT  TUT  UDITP  1-n|TS. 

2.  BYTE  AND  OEOH  WILL  MASK  OUT  THE  LOWER  4-RITS. 


515  1  DETSADDR;  PROCEDURE ( TABLESPTR I ; 

516  2  DEO. ARE  LOBITS  BYTE, 

HIBITS  BYTE, 

IPCNTL  BYTE, 

C0NTR0I.1C0DE  BYTE, 

COUNTRY $COOE  BYTE, 

NETWORK SCODE  BYTE, 

H05TSC00E  BYTE, 

SRCIHOSTICODE  BYTE, 

SRCtNETtCODE  BYTE, 

SRCSCONTSCODE  BYTE, 

SRCSCON TRY SCOPE  BYTE, 

TABLESPTR  ADDRESS, 

LCOXRX  BASED  TABLESPTR(I)  BYTE; 


517 

2 

LOBITS  =  0; 

518 

2 

HIRITS  ■=  0; 

519 

2 

IPCNTL  =0; 

520 

2 

CONTROLSCOOE  =  0; 

521 

2 

country scope  -  o; 

522 

2 

NETWORKSCODE  =  0; 

523 

2 

HOSTSCOOE  =  0; 

524 

2 

DESTINATIONS  ADDRE  SS  =  0; 

r2r> 

2 

SOURCES ADDRESS  =  0; 

5  26 

2 

DESTINATION  =  -1; 

52  7 

2 

IPCNTL  =  LCOXRX f 1 )  AMD  OEOH; 

528 

2 

IF  IPCNTL  =  0  THEN 
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-  -4 

529 

2 

o 

o 

— 

530 

3 

CONTROL SCODE  =  R0R(LC0XRX( 1 6) .  4)  AND  OFH; 

531 

3 

IF  CONTROL SCODE  =  00  THEN 

532 

3 

DO; 

*.,  •  'j 

533 

4 

COUNTRYSCODE  =  LC0XRX<16>  AND  OFH; 

“■■■  ’ 

534 

4 

IF  COUNTRY SCOOE  =  TH 1 SSCOUNTRYSCODE  THEN  /*  ELSE  TO  UNID  0  */ 

cv  "« 

535 

4 

DO; 

536 

5 

NETWORKS CODE  =  R0R(LC0XRX( 1 7) ,  41  AND  OFH; 

537 

5 

IF  (NETWORKSCODF.  <=  MAX $NE TWORK SCODE )  THEN 

538 

5 

o 

o 

5^9 

6 

IF  (COUNTRYSCODE  <>  TH 1 SSCOUNTRYSCODE )  OR 

( (NE TWORK SCODE )<>  TH 1 SSUN 1 DSNBR)  THEN 

540 

6 

DESTINATION  =1;  /*  LOC  TO  NET  V 

ELSE 

541 

6 

DESTINATION  =  0;  /*  LOC  TO  LOC  V 

542 

6 

LOBITS  =  <R0R(LC0XRX( 13),  4)  AND  OFH); 

543 

6 

HIBITS  =  (ROL(LCOXRX( 1 7 ) ,  4)  AND  OFOH); 

544 

6 

HOST SCODE  =  LOBITS  OR  HIBITS; 

545 

6 

IF  (HOSTSCODE  >=0)  AND  (HOSTSCODE  <  =  63)  THEN 

*46 

6 

DEST 1  NAT  I ONSADDRESS  =  (ROL (NETWORKSCODF ,  4)  AND 

OFOH)  OR  1 ; 

ELSE 

*47 

6 

IF  (HOSTSCODE  >=64)  AND  (HOSTSCODE  <=  127)  THEN 

548 

6 

DEST 1  NAT  1 ONSADDRESS  =  (ROL (NETWORKSCODF ,  4)  AND 

OFOH)  OR  2; 

ELSE 

549 

6 

IF  (HOSTSCODE  >=  128)  AND  (HOSTSCODE  <=  191)  THEN 

/  ~  _ 

550 

6 

DESTINATI ONSADDRESS  =  (ROL (NETWORKSCODF ,  4)  AND 

OFOH)  01?  3; 

ELSE 

551 

6 

IF  (HOSTSCODE  >=  192)  AMD  (HOSTSCODE  <=255)  THEN 

552 

6 

DESTINATI  ONSADDRESS  =  (ROI.(  NETWORK  SCODE,  4)  AND 

OFOH)  OR  4; 

-c. 

END; 

ELSE 

554 

5 

DO;  /*  NOT  WITHIN  NETWORK  CODES  FOR  TH 1 SSCOUNTRYSCODE  V 

•*  •  . 

555 

6 

STATTB<4)  =  STATTOU)  i  1; 

* 

556 

6 

END; 

557 

5 

END; 

ELSE 

•  .* 

558 

4 

DO;  /*  NOT  FOR  THIS  COUNTRY,  SEND  TO  NE TWORK /UN  ID  0  V 

559 

5 

STATTRO)  =  SWTD(3)  +  1; 

560 

5 

END; 

- 

561 

4 

END; 

ELSE 

562 

3 

DO;  /*  IT  IS  AT  THIS  POINT  THAT  OTHER  X.121  CONTROL  CODES 

-  *  '** 

SOFTWARE  SUPPORT  WILL  BE  INCORPORATED  INTO  THE  NETWORK  V 

563 

4 

STATTfM  2)  =  STATTBC)  +  1; 

564 

4 

END; 

M  -  10  1 
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565 

3 

END; 

ELSE 

-  -  - 

566 

2 

IF  IPCNTL  =  OCOH  THEN 

.  -  _ 

567 

O 

/_ 

DO; 

/*  IP  CONTROL ;  LOOK  AT  SUBCODE,  CHECK  SUBCODE  TOR  SQUELCH 

OR  UNSQUELCH  AND  ACT  ACCORDINGLY  V 

.V  \m 

568 

3 

END; 

ELSE 

569 

2 

DO; 

5  70 

3 

DESTINATION  ’  -1 ; 

571 

3 

STATTB(IO)  =  STATTR( 10)  +  1; 

572 

3 

END; 

573 

2 

IF  DESTINATION  =  1  THEN  /»  LOC  TO  NET,  GET  SOURCE  INFO  V 

574 

2 

DO; 

5  75 

3 

SRCSNETSCODE  =  ROR(LCOXRXO  3),  4)  AND  OFH; 

576 

3 

IF  (SRCiNE rtCODE  ’  THI SSUNiOSNRR)  THEN 

577 

3 

DO; 

578 

4 

LOBITS  =  (POR(LCOXRX( 14) ,  4)  AND  OFH); 

579 

4 

HIPITS  =  (ROL(LCOXRX( 13),  4)  AND  OFOH); 

580 

4 

SRCSHOSTSCODE  =  LOBITS  OR  H IB  ITS; 

581 

4 

IF  ( SRCSHOSTSCOOE  >’0)  AND  (SRCSHOSTSCODE  <=  63)  THEM 

582 

4 

SOURCES ADDRESS  =  (ROL < SRCSNETSCODE ,  4)  AND  OFOH)  OR  1; 

ELSE 

583 

4 

IF  ( SRCSHOSTSCODE  >=64)  AND  (SRCSHOSTSCODE  <=  127)  THEN 

584 

4 

S0URCESADDRE5S  =  (ROL(SRCSNETSCOI)E ,  4)  AND  OFOH)  OR  2; 

ELSE 

585 

4 

IF  (SRCSHOSTSCODE  >=  123)  AND  (SRCSHOSTSCODE  <=  191)  THEN 

•  V 

586 

4 

SOURCES ADORE 55  =  (ROL(SRCSNET$CODE ,  4)  AND  OFOH)  OR  3; 

/  / 

ELSE 

- 

587 

4 

IF  ( SRCSHOSTSCODE  >=  192)  AND  (SRC$HOST$CODE  <’255) 

A 

THEN 

588 

4 

SOURCES ADDRESS  =  (ROL (SRCSNETSCODE,  4)  AND  OFOH) 

' 

OR  4; 

END; 

. ; 

ELSE 

590 

3 

DO; 

591 

4 

DESTINATION  =  -1; 

592 

4 

STAFTB(O)  =  STATTB(9)  +  1; 

593 

4 

END; 

594 

5 

END; 

595 

585 

2 

2 

IF  DESTINATION  ’  -1  THEN 

STATTB(O)  =■  STATTB(O)  +  1; 

’N 

.I 

597 

2 

END  DETSADOR; 

1  *.'  * 

’ ■  *.  *  * 

PP.OCCOURE  DETSADDRSNL  DETERMINES  THE  DESTINATION  OF  DATA  FROM  THE  NETWORK 

A  . 

H  -  103 
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THE  PURPOSE  OF  THIS  PROCEDURE  IS  TO  DETERMINE  THE  DESTINATION  OF  DATA 
COMING  FROM  THE  NETWORK  SIOE  OF  THE  UN  ID  TO  A  LOCAL  HOST. 

INPUT  -  THE  INPUT  IS  A  POINTER  INDICATING  THE  TABLE  LOCATION  OP 
THE  DATA  HEADER  TO  BE  EVALUATED. 

PROCESSING  -  THE  PROCEDURE  EXTRACTS  THE  DEST I  NAT  I ONSADDRESS  FRO*  THE 
SECOND  BYTE  Or  THE  DATA  PACKET  AND  RE  I  URNS  THE  CORRESPONDING 
DESTINATION. 

OUTPUT  -  THIS  PROCEDURE  RETURNS  THE  DESTINATION  (1,2,3,  OR  4)  OP  THE 
DATA  COMING  FROM  THE  NETWORK  TO  A  LOCAL  HOST.  A  NEGATIVE  VALUE 
IS  AN  ERROR  CONDITION. 

INTERFACE  -  THIS  PROCEDURE  IS  CALLED  BY  PROCEDURE  ROUTES  IN. 

NOTES:  I.  BYTE  AND  07 H  WILL  MASK  OUT  THE  UPPER  5-BITS. 

*#*#««*##*  ***•*»**#*»***#  ****#>**#**##**»*»tHHI**#»***IHMMHI***1MI*******IHHHI/ 

5°8  I  DETSADDRSNL :  PROCEDURE ( TABLESPTR )  BYTE; 

500  2  DECLARE  PORT  BYTE, 

TABLESPTR  address, 

NTOXRX  BASED  TABLE $P7H  (U  3VTE; 

600  2  PORT  =  NTOXRX(O)  AND  OEM; 

601  2  IF  (PORT  >*  1  AND  PORT  THEN 

602  2  RETURN  PORT; 

ELSE 

603  2  DO- 

604  3  PORT  -  -1; 

605  3  STATTBd)  *  STATTBd)  +  t;  /«  INCREMENT  LOCAL  ERROR  COUNT  *7 

606  3  STATTR(O)  -  STATTB(O)  +  I; 

607  3  RETURN  PORT; 

600  3  END; 

6 RH  2  END  DETSADDRSNI.j 


/.....•.....••....■a. »<«i. 

/*  V 
/"  FRPCFD-.'OP  fOVPTOSI  00*1  ROUTE  A  DATAGRAM  TO  THE  l/'CAL  HOST  V 
/*  */ 
/*  the  ruRPOSE  or  pus  procedure  is  ro  route  datagrams  from  a  V 
/*  LOCAL  HOST  OR  FROM  DIE  NETWORK  RECMVF  TAPI  FS  TO  THE  CORRECT  V 
/*  I.OfAL  HOST  TRANSMIT  'CHANNEL .  */ 
/*  V 
/*  INPUT  -  A  POINT!  R  TO  PIL  DATAGRAM  TO  RE  MOV")  AND  A  PORT  NUMBER  V 
/*  TO  WHERE  THE  DATAGRAM  IS  DESTINED.  */ 
/•  */ 


II 


1  R  S 
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/* 

PROCESSING  -  THE  PROCEDURE  CHECKS  EACH  INPUT  BUFFER'S  ADOKESSS 

*/ 

/* 

THE  TABLE  THAI  WAS  SERVICED  (DATAGRAM  REMOVED) 

V 

/* 

HAS  ITS  TABLE  POINTERS  UPDA1ED  BY  SRVC$TAU$I1SKP.  WHEN  THE 

V 

/* 

FRAME  FROM  THE  NETWORK  IS  TRANSMITTED  TO  THE  HOSTS  THE  FIRST 

V 

/* 

SEVEN  BYTES  OF  HEADER  INFORMATION  ARE  STRIPPED  OFF  BEFORE 

*/ 

/* 

BEFORE  PASS  1  NO  TnL  POINTER  TO  THIS  PROCEDURE. 

V 

/* 

V 

/* 

OUTPUT  -  A  DATAGRAM  IS  MOVED  TO  THE  LOCAL  HOST  TRANSMIT  BUFFER  FOR 

V 

/* 

TRANSMISSION  TO  THE  LOCAL  HOST. 

V 

/* 

V 

/* 

INTERFACE  -  THIS  PROCEDURE  IS  CALLED  BY  ROUTES  IN. 

V 

/* 

V 

/*** 

i  »*»»»*»*•  ttft  ******  IF*  frftft  *********  ********  «#****  **•*«  ********  *#*  ********  ►  */ 

o  1 0 

1 

MOvE  TOSLOCAL:  PROCEDURE;  TABLEIPTR,  PORT); 

61  i 

') 

DECLARE  PORT  Blit, 

1  ADI.  ESP  IN  ADDRESS; 

Di  / 

7 

IF  (PORT  1  AND  Port  <--•  4)  THEN 

oli 

l 

DO, 

e  1 4 

3 

DO  CASE  PORT; 

6 1  1j 

4 

;  /*  CASE  ZERO  IS  NULL  V 

01  u 

4 

CALL  MOVE  (IDATASORAMSS  i  ZE ,  TABLESPTR,  .LCOl  TX(TXGINE) ) ; 

Gl  / 

4 

BAIL  MOVLtDATASGRAMSSIZE ,  TABLESPTR,  .LC02TX( TX02NE  ) ) ; 

old 

4 

CALL  MOVE  (DA  i AS CRAMS S 1  Ft. ,  TABLESPTR,  .LC05TX(  TX03NE) ) ; 

Ol'.l 

4 

CALL  MoVLCUATASgKAMSSIZL,  TABLESPTR,  .LC04  TX(  TX04NE ) ) ; 

r.  20 

4 

ENu;  /*  END  CASE  */ 

021 

XJ 

CALL  LDSIABSHSkPCPORT  +4); 

622 

END; 

oJ  5 

LI. SE  DO; 

o  2  4 

3 

S i A T 1 B iL.SK  1  SOL'S  T  St  Rk )  -  STATTBIl  SRISOlSTSERR)  p  1; 

OJ‘i 

SIAM  BiO)  ’  STAT  IH(O)  1  1  ; 

f'.O 

5 

LuD; 

0/  1 

/ 

LNL) 

MOVl  (OSl-OCAL; 

/*  T 

ROnOJURE  ROp 1 ES  HI  ROUTES  LX*  1  A..«\AMS  rROI  TitL  HOST  OR  NETWORK 

V 

/* 

V 

/* 

ins  purpose  o,  mis  procedure  is  io  kouil  datagrams 

V 

/* 

FROM  Tit;  FOUR  LOG  Ad  HOST  RECEIVE  bUFFEHS  10  THE  NT  1  WORK 

V 

/* 

AND  Ek-JM  HIE  NETWdRr  TO  THE  T  OUR  LOCAL  HOST  TRANSMIT  BUFFERS. 

V 

/» 

V 

/* 

INPUT  -  hv/St  UAIAORAMS  ok  network  PA  >1.7  6  art.  ROUTED  VIA  EVALUATION 

*  / 

i 


H 
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f'L'V-80  CC.MMLEH 


LOCAL  NE  I  WORK  TEST  PROGRAM,  2  OCT  19B4 


/* 


/* 

/* 

/• 

/- 

/* 

/* 

/* 

/* 

/* 


OK  I » IL  DATAGRAM  OR  PACKtT  HEADERS  */ 

V 

PkJCESSING  -  THE  PkcCEOURE  CHECKS  LACK  OF  THE  LOCAL  IIJPUI  but  KEF"  S  V 
ADDRESSES  FOR  HGSl  DATAGRAMS  -  IF  AWT  HuS  I  DATA  IS  K;  A, ;  t  f  *  / 

lilt  UEST  I  NAT  I  ON  IS  DETERMINED  VIA  PROCEDURE  DLISADDR.  ONCl  V 

lilt  DESTINATION  IS  DETERMINED  THEN  THE  DATA  IS  E.rHEK  SEN!  */ 

10  A  LOCAL  HOST  IRaMSMIT  DUFFER  (LOCAL  TO  LOCAL  IRANSFEk)  V 

via  procedure  move ro$ local  or  the  host  data  is  converted  */ 

INTO  A  PACKET  BY  SENDJPACKt'T  AND  THEN  SENT  TO  THE  NETWORK  */ 

SIDE  Ui  THE  UNID  VIA  A  POINTER  AND  SEMAPHORE  IN  SCNDtPACKE  T.  V 
DOTH  THE  DUFFER  TABLE  THAT  IS  LOADED  AND  THE  TABLE  THAT  Is  V 

.lRVICLD  HAVE  THEIR  ADORESSS  HUUSl'GLEANEb  BY  LDI T  AB$HSl\P  AND  V 
SKVOT  lALUHSKP.  V 


/* 
/* 
/* 
/* 
/* 
/  * 
/* 
/* 


OUiPJT  -  EITHER  A  DATAGRAM  I S  MOVED  TO  A  LOCAL  HOST  TRANSMIT  DUFFER 
OR  I  HE  DATAGRAM  IN  THE  LOCAL  HOST  RECEIVE  BUFFER  IS  CONVERTED 
TO  A  PACKET  FOR  THE  NETWORK  (DATA  LINK  LAYER). 

INTERFACE  -  THIS  PROCEDURE  IS  CALLED  IN  AN  ENDLESS  LOOP  bY  THE 
MAIN  PROGRAM. 


/k-*k-***J.*k  *  *  t  ***-»*•  I  *  »  I  «  k  It 


I-VU  1  RuU  I  E $  I N :  rRu  ;EDUIU  ; 

6.!D  2  DECLARE  NEIR1  BASED  HP  IRS  I  (I)  BYTE, 

NETRJ  BASED  NPTRS2  (1)  bYTE; 

/*  NETKX  points  to  a  PACKET  SIZED  ENTRY  V 


o  iu 
u3 1 
0.5.:' 

u  J  5  5 

o  54  5 

»V>  -I 

(:  5o  4 

u  5/  5 

|..5J  5 
ciN  4 
o4U  4 
r .  4  1  4 

t>4._ 

ft  I  4 
uD  5 
r,4o  5 


IF  (((EC01NE  -  LC01NS)  DATaSGRAMSSIZE)  OR  (LC01NS  >  ECO  INF)  J  THEN 
DO; 

CALL  DE  TiAuDKi  .ECO  1RX (LCD INS  +  S>>; 

IF  DESTINATION  -  J  THEN 
DO; 

CALL  MOvL  TOSLOCAH  .ECO  I  RX(LCOI  NS  +  S),  (DESTI  NAT  I  ONSAODRESS  AND 

OF  H) ) ; 

END; 

l.L  sE 

IF  LEST  I  NAT  I  ON  -  1  THEN 
DO; 

IF  L sEFii  1  -  DONE  THEN 

CALL  SENUSPACKE F ( .EC01R> (LCO INS) ,  I); 

END ; 

F.I-SI-" 

l  t\j ; 

Si  41 ICtLiRI SuES ISEKR )  =  SI  AT  I d (L$K I  JOES  I tERK)  +  1; 

END; 

'.ALL  NRVCS  T  A;ti:  I\aP ( I  ) ; 

END; 


t  J  /  2  IF  (((EC02.Nl  -  LCD  .’NS )  >-  DATASGKAMSS  1 21. )  OR  (LC02NS  >  LC02NL ) )  THEN 

>.  1  .'  DO; 


IDS 


P_/M-BO  COMPILER  LOCAL  NETWORK  TEST  PROG  FOR  CP/P  MACHINE,  ZT  SEM  6-'. 

rj’j  1  DECLARE  MSG10(*)  EYTE  OATA(CR,Lr, 

'Timeout  or  receive  TR  fron  UNO'); 


/*  PROCEDURE  DELAY 


CAUSES  A  VARIABLE  DEHY 


"  THE  PURPOSE  0r  THIS  PROCEDURE  IS  TO  ADD  DE_ AY  TQ  PARTS  Or  THE  */ 

/*  INITIALIZATION  PROCEDURE  THAT  IS  TINE  DEPENDENT.  V 

/  +  */ 

/*  I  N°JT  -  NONE  "A 

/*  PROCESSING  -  USES  BUILT  IN  PROCEDURE  IN  A  LOOP  V 

/*  OUT°UT  -  NONE  V 

/*  INTERFACE  -  NONE  AT  THIS  TIME  V 

DELAY:  PROCEDURE (MILL  I  SEC) ; 

DECLARE  (  I,  MILL  I  SEC>  BYTE  ; 

DO  1  =  1  TO  VILU  SEC; 

CALL  T  I  ME  (  2S ) ;  /*  T|x£  IS  A  BjILT  IN  FUNCTION  OF  PLMSO  WHICH  CAUSES* 
/*A  DELAY  BASED  On  THE  NUMBER  IN  PARENS  * 

END; 

ENC  DELAY; 


PROCEDURES  TO  CONVERT  HEX  TO  ASCII  FOR  USE  WITH  DISPlAYiNO  A  FRAME 


HEXSASC:  PROCEDURE (VAL,  I); 

DECLARE  (VAL,  I)  BYTE; 

TEM°1 ( I )  =  ASCI  I (SHR(VAL,4)  AND  OFH); 
TEMPI (1+1)  =  ASCII (VAL  AND  OFH); 

END  HEXJASC; 

ASCSHCX:  PROCEDURE (C)  BYTE; 

DECLARE  C  EvTE ; 

I  r  ( C  >  =  'O'  AND  C  <  =  ' 9 ' )  THEN 
RETURN  (C-JOH); 

ELSE 

IF  (C  >=  'A'  AND  C  <=  ' F '  )  THEM 


RETURN  IC-3TH); 


I f  (C  >=  's'  AND  C  <=  ' < ' >  THEN 


RETURN  (C-57H); 


RETURN  C 


END  ASCJHEX; 


H 


1  1  f 


PL/M-BO  COht  ilER  LOCAL  NET WORK  TEST  PROG  FOR  CP/M  MACHINE,  2/  SEP  84 


/*  8251  RCV  &  I 

34  1 

DECLARE 

STARTUDSHDR(* )  BYTE  DATAfCR ,Lr , 

1 

UNID  11  02  LOCAL  OS’.CR.LF, 

' 

SUPPORTING  S/W  ON  CP/M ' , CR ,Lr , 

' 

VERS  1.0,  25  S£D  84 ’ , CR ,LF , 

1 

EYE  CUT  INS  '  ,CA,LF); 

/*  THE  FOLLOWING  TEST  POINTS  ARE  USED  TO  FV  LOW  THE  DATA  WITH 

35  ! 

DE  Ci_  ARE 

TPS50 ( * )  EYTE  DAT  A ! CR,LF , 

' TP$50 

Channel  Number  *  '); 

36  1 

DECLARE 

TPS51A(*)  BYTE  DATA(CR,LC , 

'  TPJ5 1 A 

Destination  Network  =  '); 

37  1 

DECLARE 

TPS52AC)  BYTE  DATA(CR,LF  , 

1 TPJ52A 

Destination  Host  = 

38  1 

DECLARE 

TPS54C*)  BYTE  DATA(CR,LF, 

' TPS54 

Loaded  test  datacre-  In  TX01TB'); 

39  1 

DECLARE 

TPS 55A( * )  BYTE  DATA (CR ,L F , 

'TPS 56A 

Reading  tes+  datagram  from  TXO )  TP  ’  ) ; 

40  1 

DECLARE 

TPS 56A ( * )  BYTE  DATA(CR,LE , 

1 TPJ56A 

Reading  test  datagram  from  RX01T5’); 

4!  ; 

DECLARE 

TPS 5 7 (*  )  BYTE  DATA(CR,IF, 

•TPS  5 7 

Sent  TR  ’  ) ; 

4 :  : 

DECLARE 

TPS56 (* 1  BYTE  DATA (CR ,LF , 

'TPS  56 

Sent  TA' ) ; 

43  1 

DECLARE 

TP$59(* )  BYTE  DATA(CR ,LE , 

' TPJ59 

Recei ved  TR' ) ; 

44  ! 

DECLARE 

TPS60 ( * ?  BYTE  DATA (CR.LE , 

•TPS60 

Recei vod  TA' ) ; 

45 

DECLARE 

MSS! (*)  BYTE  DATA (CR ,LF , 

'Do  you 

want  to  load  the  test  message  (Y/N)  t N 1  ?  '); 

46  1 

DECLARE 

MSGIAt*)  BYTE  DATA  (CR  ,LF  , 

'Do  you 

wan*  TR/TA  handshake  (Y/N)  IN)  ?  '); 

47  1 

DECLARE 

MSG2 ( * )  EYTE  DAT  A (CR ,IF , 

'Do  you 

want  to  stop  the  test  (Y/N)  IN!  7  ' ' ; 

48  1 

DECLARE 

MSG3 ( * )  BYTE  DAT  A (CP , LF , 

'Load  ii 

1 1 o  which  host  channel  (1,2, 3, 4)?  ’); 

49  1 

DECLARE 

MSG4 ( * )  BYTE  DAT  A (CR ,LF , 

'Ho*.  many  datagrams  (0  -  9)1  '); 

50  1 

DECLARE 

MSG5 ( * )  BYTE  DAT A (CR ,LF , 

'Destination  network  code  (1,2,3)  -  '); 

5!  1 

DECL4RE 

MSG6 ( * )  BYTE  DAT4(CR,LE, 

'Destination  host  code  (0  -  FFH)  =  *); 

52  1 

DECLARE 

MSG7C  )  BVTE  DAT  A  ( OR  ,LF  , 

'Finished  simulation,  rebooting  to  Cp/V,CR,LF); 

53  1 

DECl  ARE 

MSG8C)  BTTE  DA  T  A  (CR  ,LF  , 

'Timeout  on  receive  da+agram  from  UNID'); 

54  I 

DECLARE 

MSG9C)  BYTE  DAT  A  (CR  ,LF  , 

'Timeout  on  receive  TA  from  UNID'); 

T  INT  V 


THE  UNID  */ 


H 
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T 


Pl/M-80  CONFILER  LOCAL  NETWORK  TEST  pROD  F OR  CF/U  ,  2S  SEe  F-1 

32  1  DECLARE 

CHANlpTR  ADDRESS, 
rxtastries  byte, 

TENTH*;  BYTE  I N  I T  |  A,.  (  '  XXEFTTY  EMPT10XX'), 

TE ME 2 ( *  '  PYTE  INITIAL!  ’ XXEFTTY  E^TYOXX'), 
ITRTA,  TXTR,  TXTA,  RX-R,  RX1«,  CHAR)  BYTE, 
FOREVER  BYTE , 

TRANSSURpY  FiTt, 

BYTE  SSSENTS 1  BYTE, 

BYTES1RECV J 1  BYTE, 

MSGNJM  BYTE, 


/ . ****** . * . * . *************** . / 

/*  DATA  TABLES  USED  IN  THIS  PROGRA'-'  */ 

/****• . * . ****** . ***•**•»» . * . •*»**/ 


RXOITB  (DAT  ASTARlEISIEE  )  B'TE, 

RXOINS  ADDRESS, 

RXOINE  ADDRESS, 

RXOISZ  ADDRESS, 

TX01 TB(DATAtTAfiLE$SI 2E )  EYT;_  , 

TXOINS  ADDRESS, 

TX01NE  ADDRESS, 

TXC1SZ  ADDRESS, 

DESTINATION  ADOIRESS,  /»  DESTINATION  Or  THE  PACKE*  */ 
DEST  I  NAT  I  ON  JADDRESS  BYTE,  /*  DESTIN  AODR  OE  DATAGRAM  */ 
SOURCCt ADDRESS  BYTE;  /»  SOURCE  AOOR  0?  DATAGRAM  »/ 

/*  MISCELLANEOUS  DECLARAT  l  ONS  */ 

33  1  DECLARE 


TR 

LITERALLY 

’42H1,  /* 

TR,  TA  FOLLOWS  NETOS  */ 

TA 

LITERALLY 

’<1H’,  /* 

CONVENTION  */ 

BUSY 

L  1  TERALLY 

•OTFH', 

TRUE 

LITERALLY 

'OFFH', 

FALSE 

L  1  TERALLY 

'COH' , 

NMBRlMSK 

LITERALLY 

•OTH', 

CR 

LITERALLY 

'  ODH ' , 

Lp 

LITERALLY 

’  OAH ' , 

SOURCE 

L 1 TERALLY 

•12', 

OESTIN 

L 1 TERALLY 

H6’, 

ESC 

.  1  TERAlLY 

' IBM', 

BDOS2 

L  1  TERALLY 

/* 

BDOS  CALL  2-CONSOLE  OUTPUT  */ 

BQ0S9 

LITERALLY 

'  S' ,  /* 

BDOS  CALL  9-PRINT  STRING 

UNTIL 

1  */ 

BOOS  1 0 

LITERALLY 

HO',  /* 

BDOS  CALL  10-READ  BUFFER  V 

rcvsstate 

1 1  TERALLY 

'OOOIO! 10B', 

/*  MODE  INSTRUCTION  FOR  V 
/*  82M  USART  RCV  1  NT  */ 

TRANSSSTATE 

LITERALLY 

'001101 1  IB'  ; 

/*  MODE  INSTRUCTION  FOR  */ 

aLs.-.lVV.Ci.-.-. 


H 
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PL/M-80  COFPILEP  LOCAl  NETWORK  TEST  PROG  FOE:  CP/M  MACHINE,  25  SEP  84 

15  1  CON  IN:  PROCEDURE  BYTt  EXTERNAL; 

16  2  END  CON  IN; 

17  1  CON 01' T :  PROCEDURE  (CHAR)  EXTERNAL; 

19  2  DECLARE  CHAR  P'TE; 

192  END  CON OUT ; 

20  1  BOOS:  PROCEDURE (FUNSNUM,  VALUE)  ADDRESS  EXTERNAL ; 

21  2  DECLARE  FUNlNUV  BYTE, 

VALUE  ADDRESS; 

22  2  END  BDOS; 

23  1  EXIT:  PROCEDURE  EXTERNAL; 

24  2  END  EXIT; 

25  1  DECLARE  RESULT  ADDRESS; 

26  1  DECLARE  BUFFER (128)  BYTE; 

27  1  DECLARE  CRIF ( * )  BYTE  DATA(ODH,OAH) ; 

28  1  DECLARE  MESSAGE!*)  EYTE  DATAtODH,  OAH, 

•THIS  IS  THE  TEST  MESSAGE  THIS  IS  THE  TEST 

MESSAGE! 1!!!'); 

29  1  DECLARE  ASC I  I (* )  BYTE  DATA! '01 23456789ABCDEF ’ ); 

30  1  DECLARE  <CHAN$NUM,  DESTSNETSCODE ,  DESTS HOST$CODE )  BYTE; 

31  1  DECLARE  DATASGRAMSSIZE  LITERALLY  *128',/*  NUMBER  OF  BYTES  FROM  HOST  */ 

PACKETS* INSTABLE  LITERALLY  *10’, 

DATASTABLESS I ZE  LITERALLY  *1280',/*  NUM9R  OF  BYTES  IN  TABLE  */ 
TCPSDATASSIZE  LITERALLY  >72',/*  TCP  DATA  SIZE  */ 

MAXSRXTASTR I ES  LITERALLY  '3',/*  MAX  NUMBER  OF  TA  WAIT  TRIES  V 

/*  FOLLOWING  ARE  NETWORK  DEFINED  VARIABLES  */ 

/*  NOTES: 1.  THI SSUN1DSNBR  MUST  REFLECT  WHICH  UN  ID  THIS  IS. 

2.  THISSCOUNTRYSCODE  MUST  REFLECT  THE  AREA  TO  WHICH 

THIS  UNID  IS  LOCATED. 

3.  MAXSCOUNTRYSCODE  WILL  INDICATE  WH I CH  COUNTRY  CODES 

ARE  CURRENTLY  OPERATIONAL.  CC=0000  IS  RESERVED  FOR 
THE  DELNET  MONITOR. 

4.  MAXSNETWORKSCODE  WILL  INDICATE  HOW  MANY  UN' IDS  ARE 

CURRENTLY  OPERATIONAL  WITHIN  A  PARTICULAR  COUNTRY. 

5.  FOR  DETAILED  INFORMAT  I  Of.'  ON  THE  ABOVE  REFER  TO 

PHISTER'S  THESIS,  APPENDIX  C.  */ 

THI SSUNIDSNBR  LITERALLY  '2',  /*  UN  I  CUE  ADDRESS  FOR  THIS  UNID  */ 

THI S JCOUNTRYSCODE  LITERALLY  '9',  /*  CC  WHERE  THIS  UNID  RESIDES  */ 
MAXSCOUNTRYSCODE  LITERALLY  '9',  /*  INDICATES  COUNTRYJCODES  IN  USE  */ 

MAXSNETWORKSCODE  LITERALLY  '3';/*  INDICATES  UNIDS  OPERATIONAL  IN  NET*/ 

/ 


/ 

/ 

/ 


ADDITIONAL  GENERAL  DECLARES  NEEDED  FOR  THIS  PROGRAM 


/ 


Pl/M-80  COFPILER  LOCAL  NETWORK  TEST  PROG  FOR  CP/M  MACHINE,  25  SEP  84 


15  I  CON  IN:  PROCEDURE  BYTE  EXTERNAL; 

16  2  END  CONIN; 

17  I  CONOUT:  PROCEDURE (CHAR)  EXTERNAL; 

18  2  DECLARE  CHAR  BYTE; 

19  2  END  CONOUT; 

20  I  BDOS :  PROCEDURE (FUNjNUM,  VALUE)  ADDRESS  EXTERNAL; 

21  2  DECLARE  FUNSNUM  BYTE, 

VALUE  ADDRESS; 

22  2  END  BDOS; 

2 3  1  EXIT:  PROCEDURE  EXTERNAL; 

24  2  END  EXIT; 

25  1  DECLARE  RESULT  ADDRESS; 

26  1  DECLARE  BUEEER(128>  BYTE; 

27  1  DECLARE  CRLF(»)  BYTE  DATA(ODH,OAH ) ; 

28  1  DECLARE  MESSAGE (*)  BYTE  DATA(ODH,  OAH, 

•THIS  IS  THE  TEST  MESSAGE  THIS  IS  THE  TEST 

MESSAGE  1 1  III1); 

29  1  DECLARE  ASCII!*)  BYTE  OATA( '01 23456789ABCDEF ' ) ; 

30  I  DECLARE  (CIIANjNUM,  DESTlNETtCODE,  DEST$HOST$CODE )  BYTE; 

31  1  DECLARE  DATA$GRAM$SI ZE  LITERALLY  '128',/*  NUMBER  OF  BYTES  FROM  HOST  */ 

PACKETS* INI  TABLE  LITERAL'  Y  *10*, 

DATA$TABLE$SI ZE  LITERALLY  *1280',/*  NUMBR  OF  BYTES  IN  TABLE  */ 
TCP$DATA$S I ZE  LITERALLY  '72',/*  TCP  DATA  SIZE  */ 

MAXJRXTAJTR I ES  LITERALLY  '3',/*  MAX  NUMBER  OF  TA  WAIT  TRIES  */ 

/*  FOLLOWING  ARE  NETWORK  DEFINED  VARIABLES  */ 

/*  NOTES:!.  THI S$UNID$NBR  MUST  REFLECT  WHICH  UN  ID  THIS  IS. 

2.  TH I S$COUNTRY$COD£  MUST  REFLECT  THE  AREA  TO  WHICH 

THIS  UNID  IS  LOCATED. 

3.  MAXJCOUNTRYSCODE  WILL  INDICATE  WHICH  COUNTRY  CODES 

ARE  CURRENTLY  OPERATIONAL.  CC=0000  IS  RESERVED  FOR 
THE  DELNET  MONITOR. 

4.  MAXJNET WORKSCODE  WILL  INDICATE  HOW  MANY  UIIIDS  ARE 

CURRENTLY  OPERATIONAL  WITHIN  A  PART  I CULAR  COUNTRY. 

5.  FOR  DETAILED  INFORMATION  ON  THE  ABOVE  REFER  TO 

PHI STER'S  THESIS,  APPENDIX  C.  */ 

THI SJUNIDiNBR  LITERALLY  '2',  /*  UNIQUE  ADDRESS  FOR  THIS  UNID  */ 

THI SJCOUNTRYSCOOE  LITERALLY  '9',  /*  CC  WHERE  THIS  UNID  RESIDES  */ 

MAX JCOUN TRY JCOOE  LITERALLY  '9'.  /*  INDICATES  COUNTRY$CODES  IN  USE  */ 

MAXtNETwORKSCODE  LITERALLY  '3';/*  INDICATES  UNIDS  OPERATIONAL  IN  NET*/ 


. . * . *** . . 

/*  ADDITIONAL  GENERAL  DECLARES  NEEDED  TOR  THIS  PROGRAM  */ 


/««•*»*»*»»**•» »»»»*»*«#«»»»• »»»»»»« 


4a.  CP/M  Host 


The  purpose  of  this  program  Is  to  operate  a  CP/M  system  as  a 
simulated  host  to  a  UNID  11.  The  program  Is  similar  to  the  SBC  544 
simulation  in  that  many  of  the.  same  variables  are  used.  In  addition,  an 
assembly  language  program  is  used  to  interface  the  PL/M  I/O  calls  to  the 


CP/M  BOOS  calls. 


PL/M-30  COMPILER  LOCAL  NETWORK  TEST  PROGRAM,  2  XT  1984 


853 

859 

860 
8ol 
862 


TRTAJI,  TRTAJ2,  TRTAJ3,  TRTAJ4  =  FALSE; 


863 


864  1 


END; 


GALL  SNDSEQ(.MSGI,  SIZE(MSGD); 
HALT; 


END; 

END  SET$  TkTA; 


/********##*#******#***##*****#*##im ft* ftftftftftftftftftftftftft* ***•*#**••«**»«#»**»•/ 

/*  THIS  IS  THE  MAIN  BODY  OF  THE  PROGRAM  */ 

/**»**»**«**»**•  ft* ftft ft* ******** ft******************* ft ftft* *ft**ft  **************  / 


BEGIN; 

DISABLE; 


865 

1 

CALL  SJMASK ( S 1 MJMASK ) ; 

866 

1 

CALL  1 N 1 T 1 AL 1 ZE$BOARD; 

867 

1 

CALL  SNOSEQ!.  HEADER,  SIZE  (HEADS 

068 

1 

CALL  SNDSEQ(.TP$5,  SI ZE(TP$5) ) ; 

869 

1 

CALL  INIT; 

8  70 

1 

CALL  SNDSE0(.TP$6,  S 1 ZE ( TPJ6) ) ; 

871 

1 

CALL  INITSTAB; 

872 

1 

CALL  SNDSEQ! . TP$7,  SIZE(TP$7)); 

873 

1 

ENABLE; 

874 

1 

CALL  SETITRTA; 

875 

1 

FOREVER  =  TRUE; 

876 

1 

CALL  SNDSE0C.TPI8,  SIZE!TPJ8)>; 

877 

1 

DO  WHILE  FOREVER; 

878 

2 

CALL  ROUTE JIN; 

8/9 

2 

CALL  ROUTEJOUT; 

880 

2 

CALL  LOOP; 

881 

2 

END; 

882 

1 

END  MAIN; 

/*»***»**•****»»»•*»*»»»•»•»»*•  **»*•»••**•*»*•**•*»*•••*»*•*••/ 

MODULE  INFORMATION; 

CODE  AREA  SIZE  =  18A6H  631 OD 

VARIABLE  AREA  SIZE  »  I4A7H  5237D 

(MAXIMUM  STACK  SIZE  =  OOOEH  1  4D 
1834  LINES  READ 
0  PROGRAM  ERROR! S) 

END  OF  PL/M-80  COMPILATION 


PL/M-80  CONPILER  LOCAL  NETWORK  TEST  PROGRAM, 


2  OCT  1934 


833 

2 

IF 

(LSEMtl  =  READY  AND  NSEMtl 

=  DONE) 

AND 

(NOT 

SENOtl ) 

THEN 

834 

2 

CALL  SERV 1 CE$LOOP(LPTR$ 1 , 

1); 

835 

2 

IF 

(LSEMS2  =  READY  AND  NSEMtl 

=  DONE) 

AND 

(NOT 

SENDt2) 

THEN 

836 

2 

CALL  SERV I CE$LOOP(LPTR$2, 

2) ; 

837 

2 

IF 

(1. SEMI 3  =  READY  AND  NSEMtl 

=  DONE) 

AND 

(NOT 

SENDI3) 

THEN 

838 

2 

CALL  SERV 1 CE$L00P(LPTRt3, 

?); 

839 

2 

IF 

(LSEM14  =  READY  AND  NSEMtl 

=  DONE) 

AND 

(MOT 

SEND! 4) 

THEN 

840 

2 

CALI.  SERV  I  CE$L00P(LPTRt4 , 

4); 

841  2  END  LOOP; 

PROCEDURE  SETtTRTA  ALLOWS  OPERATOR  SELECTION  OF  WHICH  HOST  PORT 

WILL  USE  THE  TRTA  HANDSHAKE 

PURPOSE  OF  THIS  PROCEDURE  IS  TO  ALLOW  OPERATOR  INTERACTION  AT  THE  TERMINAL 
TO  DETERMINE  WHICH  OF  THE  FOUR  LOCAL  HOST  PORTS  WILL  USE  THE  TRTA 
HANDSHAKE. 


INPUT  -  DATA  (PORT  NUMBERS)  PROVIDED  INTERACTIVELY  BY  THE  OPERATOR 

PROCESSING  -  THE  OPERATOR  IS  QUERIED  FOR  INPUT  TO  DETERMINE  WHICH  OF  THE 
FOUR  LOCAL  HOST  PORTS  WILL  USE  THE  TRTA  HANDSHAKE. 

OUTPUT  -  THE  TRTA  BOOLEAN  FLAGS  ARE  SET  OR  RESET. 

INTERFACE  -  CALLED  BY  MAIN  PROCEDURE 


842 


SETJTRTA:  PROCEDURE; 


V 


843  2 

844  2 

845  2 

846  3 

847  3 

848  4 

849  4 

850  4 

851  4 

852  4 

85  5  5 

854  5 

055  5 

856  5 

85  7 


CALL  SNDSEQ(.MSG1 ,  SI 2E (MSG1 ) ) ; 

HALT: 

DO  WHILE  ( (CHARtX  =  ’ Y ' )  OR  (CHARtX  =  'y’>>; 

IE  (CCHARJX  »  '■(')  OR  (CHARIX  =  'y’D  THEN 
DO; 

CALL  SNDSEQC .MSG2,  SI  TEfMSG?)  >; 

HALT; 

CHARtX  =  CHARTX  -  UM; 

IE  ((CHARtX  >=  0)  AND  (CHARtX  <--  3))  THEN 
DO  CASE  CHARtX; 

TRTAtl  =  r^nr ; 

TRTAt?  TRUE; 

TRT At  3  =  TRUE; 

TRTAt 4  -  TRUE; 

END; 

ELSE 


-  11? 


H 
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81 1 

2 

NTOIRX (NT01NC  +  1 )  =  0; 

812 

2 

NT01RXINT01NE  +  2)  =■  LCOXRX(I); 

813 

2 

NTOIRXtNTOINE  +  3)  -  LCOXRX(O); 

/*  SWAP  PACKET  HEADER  V 

814 

2 

DO  INDEX  =2  TO  (PACKETSSIZE  - 

1);  /*  SWAP  DATA  */ 

815 

3 

NTOIRXtNTOINC  *  INDEX  +  2) 

=  LCOXRXt INDEX) ; 

816 

3 

END; 

817 

2 

DO  INDEX  =  0  TO  3; 

/*  SWAP  IP  DEST  A  SOURCE  V 

818 

3 

NTOIRXtNTOINE  >  INDEX  +  19) 

=  LCOXRXt INDEX  +  21 ) ; 

819 

3 

NTOIRXtNTOINE  +  INDEX  +  23) 

*  LCOXRXt INDEX  +  '?); 

820 

3 

ENO; 

821 

2 

CALL  LDJfABSHSKP<9); 

822 

2 

DO  CASE  PORT; 

823 

3 

t 

824 

3 

LSEMS1  =  DONE; 

825 

3 

LSEMS2  =  DONE; 

826 

3 

LSEMS3  =  OONE ; 

827 

3 

LSEMS4  =  DONE; 

878 

j 

END; 

829 

2 

NPTRtl  =  .NT01 RXtNTOI NS  +  2); 

830 

2 

NSEMS1  =  READY; 

831 

2 

END  SERVICESLOOP; 

PROCEDURE  LOOP  SIMULATES  A  DATAGRAM  TRAVERSING  A  NETWORK  OE  UN  I  PS 

PROCEDURE  -  THE  LOOP  PROCEDURE  SIMULATES  THE  ACTIONS  Or  THE  SRC  83/45  HOARD 
WITH  THE  USE  OF  SEMAPHORES  AND  POINTERS.  IT  CALLS  THE  ROUTINE 
SERVICEfLOOP  WHICH  SWAPS  DESTINATION  AND  SOURCE  HEADERS  IN  THE 
DATAGRAM  IP  HEADER  AND  PACKET  HEADER  .  THE  PACKET  IS  THEN  MOVED 
TO  THE  NTOIRX  TABLE  IN  SYSTEM  MEMORY,  SIMULATING  THl'  ACTIONS  OT  THE 
SBC  88/45  BOARD. 

INPUT  -  DATAGRAMS  IN  THE  LOCAL  HOST  RECEIVE  BUFFERS,  DETERMINED  BY  THE 
SEMAPHORES  LSEM  AND  NSEM. 

PROCESSING  -  WHEN  THE  SEMAPHORES  ARE  CORRECT  AND  A  DATAGRAM  TRANSMISSION 
IS  NOT  IN  PROGRESS,  SERVICEtl.OO0  IS  C*I.LFD  TO  MOVE  A  DATAGRAM  INTO 
THE  NETWOPK  RECEIVE  BUFFER. 

OUT°UT  -  A  DATAGRAM  WITH  APPROPRIATE  PACKET  HEADER  IN  THE  HI  T WORK  RECEIVE 
PUFFER. 

INTERFACE  -  CALLED  BY  MAIN  PROGRAM. 

. . . . . . . . . 

832  1  LOOP:  PROCEDURE;  /*  NSEMS1  IS  USED  TOR  TFIF  SIMULATION  AND  SHOULD  NOT 

BE  USED  FOR  THE  88/45  OPERATIONAL  SOFTWARE.  THE  88/45 
NEEDS  ONLY  TO  INTERROGATE  THE  LSEMJX  VARIABLE.  V 
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709 

3 

DO; 

790 

4 

CALL  SNDSEQI .T°$3,  SIZE(TP$3)>; 

791 

4 

TXTRJ4  =  TRUE; 

792 

4 

SENDt4  =  TRUE; 

793 

4 

0UTPUT(US$P3$DATA)  =  TR; 

794 

4 

END; 

795 

3 

IF  ((NOT  TRTAt4)  OR  ( (TXTRt4  AND  RY.TAI4 )  AND 

((NOT  RXTRS4  >  AND  (NOT  TXTAJ4) ) ) )  THEN 

796 

3 

DO; 

797 

4 

CALL  SN0SEQ(.TP$4,  SIZE(TPt4)>; 

798 

4 

SENDt4  =  TRUE; 

799 

4 

01  SABLE; 

800 

4 

0UTPUT( ICtPORTB)  -  INPUTt ICtPORTB)  AND  07FH; 

801 

4 

ENABLE; 

802 

4 

END; 

803 

3 

END; 

804 

2 

DISABLE; 

805 

2 

OUTPUT( ICtPORTB)  =  INPUT( ICtPORTB)  AND  ORFH; 

806 

2 

ENABLE; 

807 

2 

END  R0UTE10UT; 

/*#**♦*»*******»********»*»#»»»*»»***»»*»**»»«•*»»»*»•»**»•»»*»»*»*»»»***« 

PROCEDURE  SERVICEtLOOP  A  SOFTWARE  LOOP  TO  SIMULATE  A  DATAGRAM  TRAVER¬ 
SING  A  NETWORK  OF  UN  IDS 

PURPOSE  -  TO  LOOP  A  FRAME  AROUND  AT  THE  NETWORK  LAYER.  THE  SOURCE  AND 
DESTINATION  AOORESSES  ARE  SWITCHED  AND  THE  PACKET  IS  PUT  INTO  THE 
NETWORK  LAYER  RECEIVE  TABLE.  USED  FOR  SIMULATION  PURPOSES  ONLY. 

INPUT  -  A  POINTER  TO  THE  DATAGRAM  TO  BE  LOOPED  AND  THE  RECEIVE  PORT  NUMBER 
FPOM  WHICH  IT  CAME. 

PROCESSING  -  THE  SOURCE  AND  DESTINATION  ADDRESSES  IN  THE  DATAGRAM  lD 

HEADER  ARE  SWAPPED.  THE  DATAGRAM  IS  THEN  MOVED  TO  THE  NETWORK  RECEIVE 
BUFFER  AND  THE  APPROPRIATE  POINTERS  AND  SEMAPHORES  SET  ACCORDINGLY. 

OUTPUT  -  A  DATAGRAM  MOVED  INTO  THE  NETWORK  RECEIVE  PORT  WITH  TIC  APPROPRIATE 
POINTER  AND  SEMAPHORE  SET. 

INTERFACE  -  CALLED  BY  LOOP 


803  I  SERVICEtLOOP;  PROCEDURE (TABLEIPTR,  PORT); 

809  2  DECLARE  INDEX  AOORCSS, 

PORT  BYTE, 

TARLEtPTR  ADDRESS, 

LCOXRX  BASED  TABLESPTR  (1)  BYTE; 


810  2 


NT0!RX(NT01NC  +  0)  =  0 
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746  4 

749  4 

790  4 

791  3 

792  3 

793  4 

794  4 

739  4 

796  4 

787  4 

790  4 

799  3 


SENDS 2  =  TRUE; 

OUTPUT (USSPI 1DATA)  -  TR; 

END; 

IF  ((NOT  TRTAS2)  OR  ( ( TXTRS2  AND  RXTAS2)  AND 

((NOT  RXTRS2)  AND  (NOT  TXTAS2) ) ) )  THEN 
DO; 

CALL  SNDSEQ(.TP$4,  SiZEiTPS4)); 

SENDS2  =  TRUE; 

DISABLE; 

OUTPUT ( I CSPORTB )  »  INPUTt ICSPORTB)  AND  0K7H; 
ENABLE; 

END; 

END; 


760  2  DISABLE; 

7b I  2  0UTPUT( ICSPORTB)  -  ( INPUTT ICSPORTB)  AND  OFBH)  OR  IOH; 

762  2  ENABLE; 

763  2  IF  ( ( (TX03NE  -  TX03NS)  >-  DATASGRAMSSI ZE >  OR  (TX03NS  >  TX03NE ) )  AND 

(NOT  SENDS3)  THEN 

764  2  DO; 

769  3  CALL  SND$E0<.TP$2,  SIZE(TP$2)>; 

7b6  3  IF  (TRTAS3  AND  (((NOT  TXTRS3)  AND  (NOT  RXTAS3) )  AND 

((NOT  RXTR$3)  AND  (NOT  TXTA$3)>)>  THEN 

3  DO; 

4  CALL  SNOSEQT .TPS3,  S!Z£(TP$3>); 

4  TXTRS3  -  TRUE; 

4  SENDS 3  •=  TRUE; 

4  OUTPUT  (USSP2SDATA)  -  TR; 

4  END; 

3  IF  ((NOT  TRTAS3)  OR  ((TXIRS3  AND  RXTaS3)  AND 

((NOT  RXTRS3)  AND  (NOT  TXTAS3) ) ) )  THEN 


774 

3 

DO; 

7  79 

4 

CALL  SND5EQ ( . TP$4 ,  SlZE(TP*4)); 

7  7b 

4 

SENDS 3  =  TRUE; 

777 

4 

DISABLE; 

778 

4 

OUTPUT ( 1 CSPORTB)  ^  INPUTt ICSPORTb)  AND  ODFH; 

779 

4 

ENABLE; 

780 

4 

END; 

781 

3 

END; 

76  2 

D 1  SABLE; 

783 

2 

OUTPUTt  ICSPOkTB)  -  UNPUT ( ICSPORTB)  AND  OErH )  OK  40)1; 

784 

2 

ENABLE; 

789 

2 

IF  ( ( ( 1 X04NE  -  TX04NS)  DATAJGRAMiS 1 ZE )  OR  ( TX04NS  >  TX04NE ) )  AND 

(NOT  SENDS4)  THEN 

786 

2 

DO; 

78  7 

3 

CALL  SND5EV(.TPS2,  SIZE (TPS2) ); 

768 

3 

IF  (TRTAS4  AND  (((NOT  TXTRS4)  AND  (NOT  RXTAS4) )  AND 
( (NOT  RXTRS4)  AND  (NOT  TXTAS4) ) ) )  THEN 

767 

768 
7o9 

770 

771 

772 

773 
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IS  PRESENT  TO  SEND  TO  THE  LOCAL  HOST.  THE  1 NTERPUPT  MASKS  APE 

; 

MASKED  OFF  AND  MASKED  ON  BY  THE  TRANSMIT  INTERRUPT  ROUTINE  AT 

END  OF  SENDING  A  PACKET. 

the 

INTERFACE  -  THIS  PROCEDURE  IS  CALLED  IN  AN  ENDLESS  LOO"  BY  THE 

•V- 

MAIN  PROGRAM. 

■ 

*»»»**»»»*«»  »»*»««  »#*»«»*  *»*»+*«««  *************•*##***«*»*•■■*•#♦##*******■*/ 

- 

71  5 

i 

ROUTESOUT:  PROCEDURE; 

716 

2 

DISABLE; 

71  7 

2 

OUTPUT!  ICSPOP.TB)  -  INPUT( ICSPORTB)  OR  1; 

718 

2 

ENABLE; 

i 

719 

2 

IF  ( ( (TX01NE  -  TX01NS)  >=  DATASGRAMSS 1 ZE )  OR  (TX01NS  >  TX01 ME ) ) 

AND 

(NOT  SENDS  1 )  THEN 

720 

2 

DO; 

721 

3 

CALL  SNDSEQ(.TPS2,  SI2E1TPS2)); 

722 

3 

IE  (TRTAS1  AND  (((NOT  TXTRS1 >  AND  (NOT  RXTAS1 ) )  AND 

- 

((NOT  RXTRtl)  AND  (NOT  TXTAS 1 ) ) ) )  THEN 

723 

3 

DO; 

724 

4 

CALL  SNDSEOt .TPS3,  SI7E(TPS3)); 

725 

4 

TXTRS1  =  TRUE; 

726 

4 

SENDS  1  =  TRUE; 

m 

(•  727 

4 

OUTPUT ( USSPOSDAT  A)  =  TR; 

- 

728 

4 

END; 

729 

3 

IF  ((NOT  TRTASD  OR  ( (TXTRS1  AND  RXTAS1)  AND 

\ 

((NOT  RXTRS1  )  AND  (NOT  TXTASD)))  THEN 

- 

730 

3 

DO; 

731 

4 

CALL  SNDSEQ(.TPS4,  SIZE(Tf*S4) ) ; 

* 

732 

4 

SENDS  1  =  TRUE; 

** 

733 

4 

DISABLE; 

734 

4 

OUTPUT!  ICSPOPTB)  =  INPUT ( ICSP0RT3)  MID  OFOH; 

735 

4 

ENABLE; 

736 

4 

END; 

737 

3 

END; 

• 

738 

2 

DISABLE; 

739 

2 

OUTPUT ( 1 CSPORTB )  -  ( INPUT ( ICSPORTB)  AND  OEEH  )  OR  1; 

740 

2 

ENAFiEE; 

741 

2 

|P  ( ( (TX02NE  -  TX02NS)  >-  DATASGRAMSSI2E )  OR  ( TX02NS  >  Ty02NT)) 

AND 

• 

(NOT  SENDS 2 7  THEN 

742 

2 

DO; 

743 

3 

CALL  SNDSEQ(.TPS2,  SI2L(TP$2) ) ; 

744 

3 

IF  (TRTAS2  AND  (((NO T  TXTRS2)  AND  (NOT  RXTAS2) >  AND 

((NOT  RXTRS2)  AND  (NOT  TXTAS2) ) ) )  THEN 

745 

3 

DO; 

** 

• 

746 

4 

CALL  SNDSE0(.TPJ3,  S 1 ZE ( TPS 31 ) ; 

747 

4 

TXTRS2  -  TRUE; 
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1 

•  .  ■ 

m 


ii  <• 


u 


690  4 

691  4 

692  4 

693  3 

694  4 

695  4 

696  3 

697  3 

698  2 

699  2 

700  3 

701  3 

702  3 

703  3 

704  3 

705  3 

706  2 

707  2 

708  3 

709  3 

710  3 

71 1  3 

712  3 

713  3 

714  2 


IF  LSEMS4  =  DONE  THEN 

CALL  SENDSPACKET ( .LC04RX(LC04N3) ,  4); 

END; 

ELSE 

DO; 

STATTB(LiRllDESTiERR)  =  STATTB(L!R  I !DCST!ERR)  +  1; 
END; 

CALL  SRVC!TAB1HSKP{4) ; 

END; 


I F  NSEM! I  =  READY  THEN 
DO; 

DESTINATION! ADDRESS  =  DET$ADDR!NL( .NETR1 (0) ) ; 

IF  DE  ST  I  NAT  I  ON  $ ACOPESS  >=  0  THEN 

CALL  MOVETOSLOCAL ( .NETR1 (5) ,  DESTINATIONtADORESS) ; 
NSEM! 1  =  DONE; 

CALL  SRVClTABlHSKP(9) ;  /*  FOR  SIMULATION  ONLY  V 

END; 


IF  NSEMT2  =  READY  THEN 
DO; 

DEST I  NAT  I  ON! ADDRESS  =  DET!ADDR1NL( .NCTR210) ) ; 

IF  DEST INATIONiADDRFSS  >=  0  THEN 

CALL  MOVETOSLOCAL ( .NETR215) ,  DEST I  NAT  I  ON! ADDRESS) ; 
NSEM! 2  =  DONE; 

CALL  SRVCSTABJHSKPOO);  /*  FOR  SIMULATION  ONLY  V 
END; 


END  ROUTE! IN; 

/»»*****•»*»»**»»»»»*»*»»**»»•*»*»«»»♦»»«»»»»»•»•»»»***»»*»»••*»*»»»»*•*»» 

PROCEDURE  ROUTElOUT  DETECT  WHEN  DATAGRAMS  ARE  PRESENT  IN  THE 

LOCAL  HOST  TRANSMIT  BUFFERS  AND  PROCESSES  FOR  TRANSMISSION. 

PURPOSE  OF  THIS  PROCEDURE  IS  TO  TRANSMIT  DATAGRAMS  TO  THE  LOCAL  HOSTS 
THE  TRANSMIT  REOUEST/TRANSMI T  ( TRTA)  ACKNOWLEDGE  ARRANGEMENT  IS 
INCORPORATED. 

INPUT  -  DATAGRAMS  IN  THE  LOCAL  HOST  TRANSMIT  BUITERS. 

PROCESSING  -  THE  RECEIVE  INTERRUPT  IS  MASKED  OFF  BEFORE  CHECKING  THE 
TRANSMIT  DUFrER  POINTERS  (REQUIRED  TO  HAVE  STABLE  TABLE  POINTERS) 

WHEN  A  DATAGRAM  IS  PRESENT  AND  THE  UN  ID  IS  NOT  OTHERWISE  SENDING 
A  DATAGRAM  TO  A  PARTICULAR  HOST,  THE  TRTA  FLAGS  ARE  CHECK  FOR  THE 
ALLOWABLE  STATES.  WHEN  THE  TRTA  STATES  ARE  CORRECT,  A  TR  I S  SEND 
TO  THE  LOCAL  HOST  TO  INDICATE  THE  UNID  IS  READY  TO  TRANSMIT  TO  THE 
HOST.  WHEN  A  TA  IS  RECEIVED  FROM  THF  LOCAL  HOST,  THE  TRANSMIT 
INTERRUPT  MASK  IS  TURNED  ON  TOR  THE  PARTICULAR  LOCAL  HOST  PORT 
AND  THE  DATAGRAM  SENT  VIA  THE  TRANSMIT  INTERRUPT  ROUTINES. 

OUTPUT  -  THE  TRTA  BOOLEAN  FLAGS  ARF.  SET  APPPOPR I ATF.l.Y  WHEN  A  DATAGRAM 


H  -  1  07 


PL/M-80  COMPILER  LOCAL  NETWORK  TEST  PROGRAM,  2  OCT  1984 


649 

650 

651 

652 

653 

654 

655 

656 

657 

658 

659 

660 
661 
662 

663 

664 

665 

666 

667 

668 

669 

670 

671 

672 

673 

674 

675 

676 

677 

678 

679 

680 

681 

682 

683 

684 

685 
636 

687 

688 
689 


3 

3 

3 

4 

4 

3 

3 

4 
4 
4 

3 

4 
4 
3 

3 

2 

2 

3 

3 

3 

4 

4 

3 

3 

4 
4 
4 

3 

4 
4 
3 
3 

2 

2 

3 

3 

3 

4 

4 

3 


CALL  OET$ADDR< .LC02RX(LC02NS  +5)); 

IP  DESTINATION  =  0  THEN 
DO; 

CALL  M0VET0SL0CA1.  ( «LC02RX(LC07NS  +  5),  (DFST I NATI ONI ADDRESS  AND 

OFH) ) ; 

END; 

ELSE 

IF  DESTINATION  -  1  THEN 
DO; 

IF  LSEMS2  =  DONE  THEN 

CALL  SENDSPACKET ( .LC02RX(LC02NS ) ,  2); 

END; 

ELSE 

DO; 

STATTB (L$R I SDESTSERR )  *  STATTRCLSRI SDESrSCRP.)  +  1; 

END; 

CALL  SRVC$TAS$HSKP(2); 

END; 

IF  ( ( (LC03NE  -  LC03NS)  DATASGRAMSS I ZE 1  OR  (LC03NS  >  LC03NE1)  THEN 
DO; 

CALL  0ETSADDR(.LC03RX(LC03NS  +5)); 

IF  DESTINATION  =  0  THEN 
DO; 

CALL  M0VET0$L0CAL(.LC03RX(LC03NS  +  5),  ( DESTINATIONS  ADDRESS  AND 

OFH)); 

END; 

ELSE 

IF  DESTINATION  =  1  THEN 
DO; 

IF  LSEMS3  *  DONE  THEN 

CALL  SENDSPACKET ( .LC03RX (I.C03NS) ,  3); 

END; 

ELSE 

DO; 

STATT8(LJR I SDESTSERR)  *  STATTPfL  $R I SDFSTSERR  >  +  1; 

END; 

CALL  SRVC$TAD$HSKP( 3) ; 

END; 

IF  ( ( (LC04NE  -  LC04NS)  >=  DATASGRAMSSI EE )  OR  (LF04NS  '  LC04NE ) )  THEN 
DO; 

CALL  DET$ADDR(.LC04RX(LC04NS  +5)); 

IF  DESTINATION  =  0  THEN 
DO; 

CALL  MOVE TOSLOCAl. ( *LC04RX(LC04NS  +  5),  (DESTINATIONS ADDRESS  AND 

OFH)); 

END; 

ELSE 

IF  DESTINATION  *  I  THEN 
DO; 
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77 

1 

VAL IDJHEX: 

PROCEDURE (H)  BYTE 

78 

2 

DECLARE 

(H, 1 )  BYTE; 

79 

2 

DO  1  = 

0  TO  lAST (ASCI  1  ); 

80 

3 

IF 

H  =  ASC! 1(1)  THEN 

81 

3 

RETURN  TRUE; 

82 

3 

END; 

83 

2 

RETURN 

FALSE; 

84 


END  VALlDSHEX; 


/*■*  *****#*#***#*#**♦#******##-#***#***#****#«#***♦*****■#**«  «»*»******•»■•**«*/ 
/* 


/*  PROCEDURE  IN  IT  INITIALIZES  THE  SOFTWARE  VAR  1 A3LES 

/* 

THE  PURPOSE  OF  THIS  PROCEDURE  IS  TO  INITIALIZE  THE  DATA  TABLES 
AND  OTHER  VARIABLES. 


/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

r 


INPUT  -  NONE 

PROCESSING  -  SETS  THE  VARIABLES  TO  THEIR  INITIAL  VALUES. 

INITIALIZES  THE  CP/M  USART  PORT  VARIABLES. 

OUTPUT  -  INITIALIZED  DATA  TABLES  AND  VARIABLES 
INTERFACE  -  CALLED  BY  MAIN  PROGRAM 


V 

V 

V 

V 

*  / 

V 


85  1 


/**»***« **#***#*****»*HH.»* **********♦»**♦*««»•  **»••«*♦«  H«H****<**«*MH/ 

I  NIT:  PROCEDURE; 


86  2  MSGNUM  =  0; 

87  2  BYTESSSENTS1  =  0; 

88  2  BYTES$RECV$ 1  =  0; 

89  2  CHANSNUM  *  0; 

90  2  DESTSNETSCODE  =  0; 

91  2  BUFEER(O)  =  120; 

92  2  CHAR  =  ' 

93  2  TRANSS 1  $RDY  =  FALSE; 

94  2  RXTASTRIES  =  0; 

95  2  TRTA,  TXTR,  TXTA ,  RXTR,  RXTA  =  FALSE; 


96  2  RX01NS  =  0; 

97  2  RX01NE  =  0; 

98  2  RX01SZ  =  DATASTABLEISIZE; 


99  2  TX01NS  =  0; 

100  2  TX01NE  =  0; 

101  2  TX01SZ  =  DAT  AITABLESS I ZE ; 


102  2  CALL  SINIT; 

103  2  CALL  SCLRCM; 


104  2  END  INIT; 
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(• 


. . ***•♦* . * . . 

/*  PROCEDURE  SND3E0  SENDS  DATA  TO  LOCAL  MONITOR  FOR  TE  ST I NC  */ 

/*  */ 
/*  THIS  PROCEDURE  TAKES  A  MESSAGE  STRING  AND  O'JTPuTE  IT  TO  V 

/*  THE  CP/M  SYSTEM  V 

/* 

/*  INPUT  -  A  POINTER  TO  THE  MESSAGE  LOCATION  IN  MCMOF''  AND  THE  */ 

/*  NUMBER  OF  BYTES  TO  BE  SENT.  */ 

/*  PROCESSING  -  THIS  PROCEDURE  CHECKS  THE  OUTPUT  BUCFER  STATJS  V 

/*  IN  A  LOO°  UNTIL  THE  BUFFER  IS  EMPTY.  IT  CALLS  THE  C P/M  V 

/*  BOOS  FUNCTION  2  UNTIL  THE  COUNT  IS  ZERO.  */ 

/*  OUTPUT  -  MESSAGE  TO  THE  HOST  CP/M  SYSTEM.  V 

/*  INTERFACE  -THIS  PROCEDURE  IS  CALLED  BY  THE  FOLLOWING  PROCEDURES:  V 

/*  ROUTES  IN,  ROUTESOUT,  AND  MAIN.  •/ 

n 

/*************#***** **»»*#**«  *»*»»»##»*»»*»»»****«***»♦»»#*»»*♦  UMIttlMM  I 


105  1  SNDSEp:  PROCEDURE (MSG,  TOTAL)  REENTRANT; 

106  2  DECLARE  MSG  ADDRESS, 

CHAROUT  BASED  MSG  (1)  BYTE, 

(TOTAL,  COUNT)  BYTE; 

107  2  COUNT  =  0; 

108  2  DO  WHILE  COUNT  <  TOTAL; 

109  3  RESULT  =  BDOS(BOOS2,  CHAROUKCOUNT) ) ; 

110  3  COUNT  =  COUNT  +  1 ; 

111  3  END; 


112  2  END  SNDSEO; 

*  READ  PROCEDURE  READS  THE  CP/M  CONSOLE  THROUGH  BDOS  CALL  10  * 

»  * 

*  INPUT-  BDOS  FUNCTION  10,  A.  POINTER  TO  A  BUFFER  * 

*  » 

*  OUTPUT-  CONTENTS  0"  THE  BUFFER  FILLED  WITH  CONSOLE  INPUT.  * 

*  I/O  ERROR  RESULT  IN  THE  VARIABLE  RESULT.  * 

***#******»#«*****#**#***********#****##*** *****#***********#**#*##* #***#• > 


113  1  READ:  PROCEDURE; 

114  2  RESULT  =  BDOS ( BOOS  1 0,  .BUEFER(O) ); 

115  2  END  READ; 


/*•** . * . . . 

/*  V 

/*  PROCEDURE  RCVS 1  RECEIVES  DATA  V 

/*  */ 


/*  the  PURPOSE  OF  THIS  PROCEDURE  IS  TO  TAKE  A  CHARACTER  AT  A  TIME 


H 


1  2  1 
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. 


m  • 

d 


/*  FROM  THE  RECEIVE  PORT  ONE  AND  PUT  IT  I N  THE  RECEIVE  BUFFER. 

/*  the  second  part  receives  a  datagram  ;n  total  and  puts  it  into 

/*  THE  RECEIVE  BUFFER.  A  TIMER  IS  USED  TO  KEEP  THE  ROUTINE  FROM 

/*  HANGING  UP  . 

/* 

/*  INDUT  -  NONE 

/*  PROCESSING  -  MOVES  A  BYTE  OF  DATA  FROM  THE  RECEIVE  CHARACTER 

/*  ROUTINE  IN  THE  ASSEMBLY  LANGUAGE  PROGRAM  INTO  THE  RECEIVE 

/*  BUFFER. 

/*  OUTPUT  -  RECEIVED  DATAGRAM  IN  THE  RECEIVE  BUTTER. 

/«  INTERFACE  -  EXTERNAL  CALL  TO  ASSEMB-Y  LANGUAGE  PROGRAM. 

/* 

/ . . * . *************** . . . **.... 

/*  USE  THIS  COOE  FOR  SELF  TEST;  CHAR  BY  CHAR  RECC I VE  V 

/* 

RCV$1 :  PROCEDURE; 

RX01 T3 (RX01 NE )  =  SCMIN; 

RX01NE  *  RXOINE  +  1 ; 

I F (RX01 NE  >=  RX01SZ)  THEN 
RXOINE  =  C; 


*/ 

*/ 

V 

V 

V 

V 
*/ 
*  / 

V 


V 


116  1 

117  2 

118  2 

119  2 

120  3 

121  3 

122  2 

123  2 

124  3 

125  3 

126  3 

127  3 

128  2 

129  2 

130  3 

131  4 

132  4 

133  4 

134  4 

135  3 

136  3 


END  RCVJ1 ; 

V 

/*  USE  THE  FOLLOWING  FOR  OPERATIONAL  544  S/W  TEST  */ 
/*  DATAGRAM  BY  DATAGRAM  RECEIVE  */ 

RCVtl:  PROCEDURE; 

DECLARE  COUNT  ADDRESS; 

COUNT  =  30000; 

DO  WHILE  ( (SCMCHK  =  0)  AND  (COUNT  <>  0)); 

COUNT  =  COUNT  -  1 ; 

END; 

IF  COUNT  =  0  THEN 
DO; 

CALL  SNDSEQt .MSG8 ,  SI2E(MSG8)); 

RXTR  =  FALSE; 

TXTA  =  FALSE; 

END; 

ELSE 

IF  ((NOT  TRTA)  OR  (RXTR  AND  TXTA  AND 

(NOT  TXTR)  AND  (NOT  RXTA) ) )  THEN 
DO; 

DO  WHILE  (BYTESSRECVJ1  <  DATA$GRAM$SI ZE  > ; 
RX01 TB (RXOINE  >  =  SCMIN; 

RXOINE  =  RXOINE  +  1 ; 

BYTESSRECVS1  =  BYTESIRECVS1  +  1; 

END; 

BYTESSRECVJ1  =  0; 

IF  (RXOINE  >*  RX01SZ)  THEN 


L*JL 


H 


122 
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RXOINE  =  0; 

RXTR  =  FALSE; 

TXT  A  =  FALSE; 

END; 

END  RCVtl; 


/******#***»*#»*»«■***#»****»***•*»*■»•»*»**••**»***»»»************•******»***/ 

r  v 

/*  PROCEDURE  TRANSJ1  TRANSMITS  DATA  V 

/*  */ 

/*  THE  PURPOSE  OF  THIS  PROCEDURE  IS  T0  TAKE  A  CHARACTER  AT  A  TIME  */ 

/*  FROM  THE  TRANSMIT  BUFFER  AND  SEND  IT  TO  CP/M  HOST  TRANSMIT  L'SART .  V 

/«  THE  SECOND  PART  TRANSMITS  A  DATAGRAM  IN  TOTAL  .  */ 

/*  *> 

/*  INPUT  -  A  DATAGRAM  IN  THE  TRANSMIT  BUFFER.  V 

/*  PROCESSING  -  MOVES  A  EYTE  OP  DATA  FROM  THE  TRANSMIT  BUFFER  V 

/*  TO  THE  TRANSMIT  CHARACTER  ROUTINE  IN  THE  ASSEMBLY  LANGUAGE  V 

/*  PROGRAM  .  */ 

/*  OUTPUT  -  UPDATED  ARRAY  POINTERS  V 

/»  INTERFACE  -  EXTERNAL  CALL  TO  ASSEMBLY  LANGUAGE  PROGRAM.  *•' 

r  v 


/********* »»*»**«■******«**********»»******»**»*»■»»•**» •»***»»**• *•»»•**♦»•*/ 

/*  USE  THIS  CODE  FOR  SELF  TEST;  CHAR  BY  CHAR  TRANSMIT  «/ 

/* 

TRANStl;  PROCEDURE; 

I F (BYTESJSENTS 1  <  DATAJGRAMJSI ZE >  THEN 
DO; 

CALL  SCMOUTITXOI TBtTXOt NS) ) ; 

BYTESSSENTJ1  =  BYTESJSENTS1  +  1; 

TX01NS  =  TX01NS  +  1; 

IF  SYTESJSENTS1  >=  DATA$GRAM$S I ZE  THEN 
DO; 

BYTESSSENTi 1  =  0; 

IF  TX01NS  >«  TX01SZ  THEN 
TX01NS  =  0; 

TRANSS1SRDY  =  FALSE; 

END; 

END; 

END  TP.ANSJ1  ; 

V 

/•  USE  THE  FOLLOWING  FOR  OPERATIONAL  544  S/W  TEST  V 
/*  DATAGRAM  BY  DATAGRAM  TRANSMIT  V 

142  1  TRANS J 1  :  PROCEDURE; 


137  3 

136  3 

139  3 

140  3 


143  2 

144  3 


DO; 

DO  WHILE  (BYTESSSENTS 1  <  DATAJGRAMSS I ZE ) ; 
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14" 

4 

CALL  SCMO'JT (TXOITB(TXOINS) 

14c 

4 

BYTESSSENTS1  =  BYTESSSENTS 

147 

4 

TX01NS  =  TX01NS  +  1  ; 

1  48 

4 

END; 

149 

3 

EYTESSSENTSl  =  0; 

150 

3 

IF  TX01NS  >=  TX01SZ  THEN 

151 

3 

TX01NS  =  0; 

152 

3 

TRANSSISRDY  *  FALSE; 

153 

3 

TXTR  =  FALSE; 

154 

3 

RXT  A  =  FALSE; 

155 

3 

END; 

156 

2 

END  TRANSS1; 

. . ************** . **************** . * . * 

PROCEDURE  LOST ABSHSKP  LOAD  TABLE  HOUSEKEEP 

THE  PURPOSE  OF  THIS  PROCEDURE  IS  TO  HOUSEKEEP  A  SPECIFIED  BUFFER 
TABLE  AFTER  LOADING  Oc  THE  USER  DATA  FROM  THE  HOST. 

INPUT  -  THE  INPUT  IS  AN  ADDRESS  INDICATING  THE  TABLE  REOUIRING 
CHANGES. 

PROCESSING  -  THE  PROCEDURE  DETERMINES  THE  TABLE  TO  BE  PROCESSED, 

ADVANCES  THE  NEXTSEMPTYSBYTE  ADDRESS  BY  ONE  DATASGRAMSSI ZE, 

AND  ADJUSTS  FOR  BUFFER  WRAP  lr  NECESSARY. 

OUTPUT  -  THE  SPECIFIED  TABLE  HAS  ITS  NEXTSENPTYSBYTE  ADDRESS 
ADVANCED  BY  THE  LENGTH  OF  A  SINGLE  DATAGRAM. 

INTERFACE  -  THIS  PROCEDURE  IS  CALLED  BY  PROCEDURE  ROUTES  IN  AND  ROUTESOUT. 

#***#**#*******#**##*#**********«**#**#***##*#*****#*#**#*****#******#***#* 


157 

1 

LDSTABSHSKP :  PROCEDURE (TABLE)  ; 

158 

2 

DECLARE  TABLE  ADDRESS; 

159 

2 

TX01NE  =  TX01NE  +  DATASGRAMSSIZE; 

160 

2 

IF  TXO I NE  >=  TX01SZ  THEN 

161 

2 

TX01NE  =  0; 

162 

2 

END  LDSTABSHSKP; 

. . ***************************** 

PROCEDURE  SRVCSTABSHSKP  SERVICE  TABLE  HOUSEKEEP 


THE  PURPOSE  OF  THIS  PROCEDURE  IS  TO  HOUSEKEEP  A  SPECIFIED 
BUFFER  TABLE  AFTER  SERVICING  (REMOVING  A  PACKET). 


INPUT  -  THE  INPUT  IS  AN  ADDRESS  VALUE  INDICATING  THE  TABLE  THAT 
REQUIRES  HOUSEKEEPING. 
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PROCESSING  -  THE  PROCEDURE  DETERMINES  THE  TABLE  TO  BE  PROCESSED, 

ADVANCES  THE  NCXTJBYTEJTOIBEJ SERV I  CEO  ADDRESS  BY  A  DATASGRAMSS I ZE . 

AND  ADJUSTS  FOR  BUFFER  WRAP  IF  NECESSARY. 

OUT°UT  -  THE  SPECIFIED  TABLE  HAS  ITS  NEXTSBYTESTOJBESSERV i CED  ADDRESS 
ADVANCED  BY  THE  LENGTH  Or  A  SINGLE  DATAGRAM. 

INTERFACE  -  THIS  PROCEDURE  IS  CABLED  BY  PROCEDURE  ROUTES  IN  AND  ROUTES OUT. 

******* . ...*•.****......*•»..•****»*».***.*. . * . 

163  1  SRVCS TABSHSNP:  PROCEDURE (TAB )  ; 

164  2  DECLARE  TAB  ADDRESS; 

1 63  2  DO  CASE  TAB; 

166  3  ; 

167  3  DO; 

168  4  RX01NS  =  RXOINS  +  DATASGRAMSS I ZE ; 

169  4  IF  RXOINS  >=  RX01S2  THEN 

170  4  RXOINS  *  0; 

17'  4  END; 

172  3  DO; 

173  4  TX01NS  =  TX01NS  +  DATASGRAMSS I ZE ; 

174  4  IF  TX01NS  >=  TX01SZ  THEN 

175  4  TX01NS  =  0; 

176  4  END; 

1 77  3  END; 

178  2  END  SRVCSTABSHSKP; 

. . . . . . 

PROCEDURE  CHKSRXTA  CHECK  FOR  RECEIVED  TRANSMIT  ACK 

THE  PURPOSE  OF  THIS  PROCEDURE  IS  TO  CHECK  THE  RECEIVED  CP/M  PORT  FOR  A 
RECEIVED  TRANSMIT  ACK  FROM  THE  UNID  II.  A  TIMER  IS  USED  TO  KEED 
THE  PROGRAM  FROM  HANGING  UP  IN  THIS  ROUTINE. 

I NaU T  -  THE  INPUT  IS  THE  FOUR  TRTA  BOOLEAN  FLAGS  . 

PROCESSING  -  THE  PROCEDURE  WILL  ONLY  EXECUTE  IF  THE  FOUF<  TRTA  BOOLEAN  FLAGS 
ARE  IN  THE  CORRECT  STATES.  WHEN  THEY  ARE,  THE  PROCEDURE  INITIALIZES 
THE  TIME COUNTER  AND  WAITS  FOR  A  RECEIVED  TA  FROM  THE  UNID  TO  AN  EARLIER 
TRANSMITTED  TR  TO  THE  UNID.  IF  THE  TIMER  TIMES  OUT,  THE  BOOLEAN  IS 
RESET  AND  A  TIMOUT  MESSAGE  IS  DISPLAYED.  WHEN  THE  TA  IS  RECEIVED 
BEFORE  THE  TIMOUT,  THE  PROCEDURE  SETS  THE  BOOLEAN  FLAGS  ACCORDINGLY 
AND  SENDS  THE  DATAGRAM  TO  THE  UNID  II. 

OUTPUT  -  A  DATAGRAM  TO  THE  UNID  II  OR  RESET  BOOLEAN  FlAGS. 


H 


12  5 
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INTERFACE  -  THIS  PROCEDURE  IS  CALLED  BY  PROCEDURE  ROUTES  IN  AND  ROUTESOJT. 


W9  1  CHKSRXTA:  PROCEDURE; 

180  2  DECLARE  COUNT  ADDRESS; 

181  2  |P  (TXTR  AND  (NOT  RXTA>  AND  (NOT  RXTfi)  AND  (NOT  T >TA ) )  THEN 

192  2  COUNT  =  30000; 

183  2  DO  WHILE  ( ( SCMCHK  =  0)  AND  (COUNT  <>  0)); 

184  3  COUNT  =  COUNT  -  1; 

185  3  END; 

196  2  IF  COUNT  =  0  THEN 

187  2  DO; 

169  3  CALL  SNDSEOt .MSG9,  SIZE<MSG91); 

189  3  TXTR  =  FALSE; 

190  3  END; 

ELSE 

191  2  DO; 

192  3  CHAR  =  SCM.iN; 

193  3  IF  CHAR  =  TA  THEN 

194  3  DO; 

195  4  CALL  SNDSEQ(.TP$6C,  5  I ZE  ( TPS60 )  ) ; 

196  4  RXTA  =  TRUE; 

197  4  RXTASTR I ES  =  0; 

198  4  CALL  TRANSS1; 

199  4  END; 

200  3  END; 

201  2  END  CHKSRXTA; 

/»#**##***«#****#******#*****•*#*****#*#*#»****»**#****■****#»#****##■**#•*« 

PROCEDURE  CHKSRXTR  CHECK  FOR  RECEIVED  TRANSMIT  REQUEST 

THE  PURPOSE  OF  THIS  PROCEDURE  IS  TO  CHECK  THE  RECEIVED  CP/M  PORT  FOR  A 
RECEIVED  TRANSMIT  REQUEST  FROv  THE  UNID  II.  A  TIMER  IS  USED  TO  KEEP 
THE  PROGRAM  FROM  HANGIN3  UP  IN  THIS  ROuTINE. 

INPUT  -  THE  INPUT  IS  THE  FOUR  TRTA  BOOLEAN  FLAGS  . 

PROCESSING  -  THE  PROCEDURE  WILL  ONLY  EXECUTE  IF  THE  FOUR  TRTA  BOOLEAN  FLAGS 
ARE  IN  THE  CORRECT  STATES.  WHEN  THEY  ARE,  THE  PROCEDURE  INITIALIZES 
THE  T I FE  COUNTER  AND  WAITS  FOR  A  RECEIVED  TR  FRDH  THE  UNID.  IF  THE  TIMER 
TIMES  OUT,  THE  BOOLEAN  IS  RESET  AND  A  TIMOUT  MESSAGE  IS  DISPLAYED. 

WHEN  THE  TR  IS  RECEIVED  BEFORE  ThE  TIMOUT,  THE  PROCEDURE  SETS  THE 
BOOLEAN  FLAGS  ACCORDINGLY  and  SENDS  FIRST  A  TA  ANJ  THEN  WAITS  FOR  A 
DATAGRAM  FROM  THE  UNID  II. 

OUTPUT  -  A  TA  AND  A  DATAGRAM  FROM  THE  UNID  II  OR  RESET  BOOLEAN  FLAGS. 
INTERFACE  -  THIS  PROCEDURE  IS  CALLED  BY  PROCEDURE  ROUTES  IN  AND  ROJTESOJT. 


H  -  1  26 
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. . . . . . * . . 

202  t  CHKJRXTR:  PROCEDURE; 

203  2  DECLARE  COUNT  ADDRESS; 


204  2 

205  2 

206  2 

207  3 

208  3 

209  2 

210  2 

21 1  2 

212  3 

213  3 

214  3 

215  4 

216  4 

217  4 

213  4 

219  4 

220  4 

221  4 

222  3 


IF  ((NOT  RXTR)  AND  (NOT  TXTA)  AND  (NOT  TXTR)  AND  (NOT  RXTA) )  THEN 
COUNT  =  30000; 

DO  WHILE  ( < SCMCHK  =  0)  AND  (COUNT  <>  0)1; 

COUNT  =  COUNT  -  1 ; 

END; 

IF  COUNT  =  0  THEN 

CALL  SNDSEQ! .MSG10,  S I 2E (MSG1 0) ) ; 

ELSE 

DO; 

CHAR  =  SCMiN; 

IF  CHAR  =  TR  THEN 
DO; 

CALL  SNDSEQf .TPS59,  S I ZE( TPS59) ) ; 

CALL  SN0SEQ(.TP$58,  S  I  ZE  (TFS58)  > ; 

RXTR  =  TRUE; 

TXTA  =  TRUE; 

CALL  SCNIO'iT(TA); 

CALL  RCVS1 ; 

END; 

END; 


223  2  END  CHKJRXTR; 


/**»»»*»»»»***»♦**«**»****•■*****»#»*»**»***»***»**#****##***»»#*********** 

PROCEDURE  READSTXTAB  PROCEDURE  TO  READ  A  DATAGRAM  IN  THE  TRANSMIT  TABLE 


INPUT  -  THE  TRANSMIT  TABLE  POINTERS  AND  RETRIES  COUNT 


PROCESSING  -  THE  PROCEDURE  CHECKS  THE  NUMBER  OF  ATTEMPTS  TO  SEND  THE  DATA 
GRAM  IN  THE  TRANSMIT  3UFFER.  IF  THE  NUMBER  OF  TIMES  EXCEEDS  THE 
MAXIMUM,  THEN  THE  COUNTER  AND  TRTA  FLAGS  ARE  RESET.  THE  TRANSMIT 
BUFFER  IS  THEN  CHECKED  TO  DETERMINE  IF  A  DATAGRAM  IS  PRESENT  IN 
THE  TRANSMIT  BUFFER.  WHEN  A  DATAGRAM  IS  PRESENT,  THE  .MESSAGE  AND  IT'S 
IP  HEADER  IS  DISPLAYED  ON  THE  CP/M  CONSOLE.  IF  THE  TRTA  FLAGS  ARE 
IN  THE  CORRECT  STATE,  THEN  A  TR  IS  SEND  TO  THE  UNID  II  AND  THE  FLAGS 
ARE  SET  TO  INDICATE  A  DATAGRAM  IS  READY  TO  BE  SENT. 

OUTPUT  -  THE  TRANSMIT  DATAGRAM  AND  IP  HEADER  ARE  DISPLAYED  ON  THE  CP/M 
CONSOLE. 


INTERFACE  -  THIS  PROCEDURE  IS  CALLED  BY  THE  MAIN  PROGRAM. 


a********************************************* *#***♦***•♦ ##♦*********#**♦/ 


224  1 

225  2 


READSTXTAB:  PROCEDURE; 
DECLARE  I  BYTE; 
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226 

2 

RXTAJTR 1 E  S  =  RXTAJTRIES  +  1; 

227 

2 

IF  RXTAJTRIES  >  MAXJRXTAJTR IES  THEN 

228 

2 

DO; 

229 

3 

TXTR  =  FALSE; 

230 

3 

RXTA  =  FALSE; 

231 

3 

CALL  SRVC$TA8$HSKP(2); 

232 

3 

RXTAJTRIES  =  0; 

233 

3 

END; 

234 

2 

IF  ((TX01NE  -  TX01NS)  >=  D AT AJGR AMJ S 1 ZE '  OR  (TX01I 

235 

2 

DO; 

236 

3 

1  =  12; 

237 

3 

DO  WHILE  1  <  =  19; 

238 

4 

CALL  HEXSASCfTXOl TBCTX01  NS  +  1 ) , ( 1-1 2) *2) 

239 

4 

1=1+1; 

240 

4 

END; 

241 

T 

CALL  SNDSEQf .TPJ55A,  S i ZE (TPJ55A) ) ; 

242 

3 

CALL  SNQSEQt.CRLF,  SIZE(CRLF)); 

243 

3 

CALL  SNDSEQf .TEXfM  ,  S 1  ZE  (TENP1  ) ) ; 

244 

*? 

CALL  SNOSEQt .TX01 TB(TXO!NS  +  56),  TCpSDATAJSi; 

245 

3 

IF  (TRTA  AND  (NOT  TXTR)  AND  (NOT  RXTA)  AND 

(NOT  RXTR)  AND  (NOT  TXTA)>  THEN 

246 

3 

o 

o 

247 

4 

TXTR  =  TRUE; 

243 

4 

CALL  SNDSEp( .TPJ57,  SI ZE (TPS57 ) ) ; 

249 

4 

CALL  SCMOUTlTR); 

250 

4 

END; 

251 

3 

IF  (NOT  TRTA)  THEN 

252 

3 

TRANSJ 1  JRDY  =  TRUE; 

253 

3 

END; 

254 

2  END 

READJTXTAB; 

/»*•**-*»•#*#»*«#*♦»•■»»*»»»»***»»♦»**»»■»*******»»»■»»»»»******»*♦#»«-***»«**« 

PROCEDURE  READJTXTAB  PROCEDURE  TO  READ  A  DATAGRAM  IN  THE  RECEIVE  TABLE 


INPUT  -  THE  TRANSMIT  TABLE  POINTERS 

PROCESSING  -  THE  PROCEDURE  CHECKS  THE  RECEIVE  BUFFER  TO  DETERMINE  IF  A 
DATAGRAM  IS  PRESENT  IN  THE  RECEIVE  BUFFER.  WHEN  A  DATAGRAM  IS 
PRESENT,  THE  RECEIVED  MESSAGE  IS  DISPLAYED  0*1  THE  CP/M  CONSOLE. 
THE  IP  HEADER  IS  ALSO  DISPLAYED.  THE  RECEIVED  TABLE  POINTERS  ARE 
UPDATED. 


OUTPUT  -  THE  RECEIVED  DATAGRAM  AND  ITS  HEADER  ARE  DISPLAYED  ON  THE  CP/M 
CONSOLE. 

INTERFACE  -  THIS  PROCEDURE  IS  CALLED  BY  THE  MAIN  PROGRAM. 


255  1 


READJRXTAB:  PROCEDURE; 
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256 

2 

DECLARE 

I  BYTE ; 

257 

2 

IE  ((RX01NE  -  RX01NS)  >=  DATASGRAMSS 1 ZT )  OR  (R/01NS  > 

258 

i. 

DO; 

259 

3 

1  = 

12; 

260 

3 

00  WHILE  1  <  =  19; 

261 

4 

CALL  HEXSASC(RX01TB(RX01NS  -r  1  ) ,  (  1  -1  2>*2  ! ; 

262 

4 

1=1+1; 

263 

4 

END; 

264 

X 

CALL 

SNDSECH  .TPS56A,  S  1  ZE  ( T^SSfeA I  ) ; 

265 

3 

CALL 

SNDSEQ(.CRLF,  S 1  ZE  (CR..F  )  > ; 

266 

3 

CALL 

SNDSEOf  .TEfPM  ,  S  1  ZE  ( TE^f-'  l  >  ) ; 

26  7 

3 

CALL 

SNDSE0(.RX01TS(RX0iNS  +  56),  TCPSDATASS 1 ZE ) ; 

268 

X 

CALL 

SRVC*TAR$HSKP ( 1 ) ; 

269 

3 

END; 

270 

-i 

END  READSRXTA3; 

. . . . . . * . . * . . *•** . **•♦*»* 

PROCEDURE  LOAD  LOADS  A  DATAGRAM  into  THE  TXD1T?  ’  ABLE . 

THE  PURPOSE  OF  THIS  PROCEDURE  IS  TO  LOAD  A  TEST  DATAGRAM  iNTO  THE  TRANSMIT 
TABLE  FOR  TRANSMISSION  TO  THE  UN  ID  II. 

INPUT  -  A  POINTER  TO  THE  NEXT  AVAILA8.E  SPACE.  IN  THE  TRANSMIT  TABLE ,  THE 
DESTINATION  UNID  NUMBER  AND  THE  DESTINATION  HOST  NUMBER. 

PROCESSING  -  A  DATAGRAM  IS  INITIALIZED  TO  ZEROS,  THEN  THE  APPROPRIATE 

CONSTANTS  INSERTED  INTO  THE  HEADER,  ALON3  KITH  THE  DESTINATION  UNID 
AND  HOST  NUMBERS,  AND  THE  TEST  MESSAGE  WITH  A  MODULO  10  NUMBER, 
INSERTED  AT  THE  CURRENT  TABLESPTR. 

OUTPUT  -  A  COFPLETEO  DATAGRAM  AT  THE  CURRENT  TABLEIPTR  IN  THE  TRANSMIT 
TABLE 

INTERFACE  -  CALLED  BY  RE ADSL  I NE 


271  1  LOAD:  PROCEDURE (TABLESPTR,  DESTSUNID,  DESTSHOST); 

272  2  DECLARE  (INDEX,  TABLESPTR)  ADDRESS; 

273  2  DECLARE  (DESTSUNID,  DESTSHOST)  BYTE ; 

274  2  DECLARE  LCOXTB  BASED  TABLESPTR  (1)  BYTE; 

275  2  DO  INDEX  =  0  TO  (DATASGRAMSS IZE  -  1); 

276  3  LCOXTSt INDEX)  =  0; 

277  3  END; 

/*  VARIOUS  CONSTANTS  PER  THE  TCP/IP  SPEC  V 

278  2  LCOXTB(O)  =  48H; 
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279 

2 

LC3XTB(3)  =  BOH; 

2  SO 

/ 

LCOXTB  ( 6 )  =  4  OH; 

231 

2 

LCOxTB(S)  =  3CH ; 

2S2 

2 

LCOXTB (9)  =  6; 

283 

2 

LCOXTB (20)  =  82H; 

284 

2 

/* 

LCOXTB ( 2 1 )  =  OBH; 

IP  SOURCE  HEADER  */ 

285 

2 

LC0XT9 (  12)  =  THISICOUNTRYICODE  AND  OFh; 

/*  CT  =  0,  CC  =  T H 1 SICOJNTR T $  CODE  V 

236 

2 

LCOXTB (  13)  =  (ROL (TH 1 SJUN 1 DIN3R ,  4)  AND  OFOH)  OR 

(ROR( ( (CHANtNUM*56)  AND  OFOH),  4)  AND  OFH); 

/«  NC  «  THI SIUNIDiNBR,  HC(H)  =  ChANINUM  *  56* 

2S7 

2 

LCOXTB (  14)  =  7H  OR  ( ROL ( ( ' CHANINUM *56 )  AND  OFH),  4)  AND  O^OH); 

/*  HC(L)  -  CHANINUM  *  56,  PC (2)  «  7  */ 

288 

2 

/* 

LCOXTB (  15)  =  77rl;  /*  PCO)  =  7,  FC(O)  =  7  *' 

IP  DESTINATION  HEADER  V 

289 

2 

LCOXTB (  16)  =  TH !  SICO'JNTRYICODE  AND  OFH; 

/*  CT  =  0,  CC  =  THIS! COUNTRY! CODE  */ 

290 

2 

LCOXTB (  17)  =  (ROHDESTIUNID,  4)  AND  OFOH)  CR 

(ROR( (DESTIHOST  AND  OFOH),  4'  AND  OTH); 

/*  NC  =  DESTSUNID,  HCIH)  =  DEETSH0S7  V 

291 

2 

LCOXTB (  18)  =  7H  OR  (ROL ( (DESTIHOST  AND  OFH),  4)  AND  OFOH); 

/*  HC(L)  =  DESTIHOST,  PC ( 2)  *  7  */ 

292 

2 

LCOXTB (  19)  =  77H;  /*  PC(U  =  7,  PC( 0)  =  7  */ 

293 

2 

CALL  MOVE (TCPIDATAIS 1 ZE ,  .MESSAGE,  .LCOXTB(  56)); 

294 

2 

IF  MSGNUM  >  9  THEN 

295 

2 

MSGNUM  =  0; 

296 

2 

LCOXTB!  86)  =  'O'  +  MSGNUM; 

297 

2 

MSGNUM  =  MSGNUM  +  1 ; 

298 

2 

CALL  SNDSEQ(.TPJ54,  S 1 ZE< TPI54 ) ) ; 

299 

2 

END  LOAD; 

/♦***#*  *#**■*#*-#******#*****#*****♦*#-*♦**■*#*####*»##**■•««  **%**#«#*♦###***■## 

PROCEDURE  READILINE  INTERPRETS  A  LINE  FROM  THE  CP/M  CONSOLE 

PURPOSE  ^  THIS  PROCEDURE  IS  TO  READ  A  LINE  OF  DATA  FROM  THE  HOST  CP/M 
CONSOLE,  THEN  INTERPRET  FOR  EXECUTING  EITHER  LOAD  ANOTHER  TEST 
MESSAGE  IN  THE  TRANSMIT  TA3LE  OR  STOPPING  THE  TEST. 

INPUT  -  INPUT  RESPONSES  FROM  THE  CONSOLE  OPERATOR.  RESPONSES  ARE  NUMBER 
OF  DATAGRAMS,  DESTINATION  UNID,  AND  DESTINATION  HOST. 

PROCESSING  -  THE  CONSOLE  OPERATOR'S  RESPONSES  ARE  INTERPRETED  AND  THE 

APPROPRIATE  NUMBER  Of  DATAGRAMS  ARE  LOADED  INTO  THE  TRANSMIT  BUFFER. 
THE  OPERATOR  ALSO  HAS  OPPORTUNITY  TO  END  THE  TEST. 

OUTPUT  -  AN  OPERATOR  SPECIFIED  NUMBER  OF  DATAGRAMS  INSERTED  INTO  THE 
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< 

TRANSMIT  BUFFER. 

-  ■  ■ 

INTERFACE  -  CALLED  Bt  MAIN  PROCEDURE 

•_'/  - 

303 

1 

READJlINE:  PROCEDURE; 

- 

301 

2 

DECLARE  TA3LE$PTR  ADDRESS, 

(1,  COUNT)  BYTE; 

302 

2 

1  =  0; 

303 

2 

CALL  SNDSEQt.MSGI ,  SIZE(MSGD); 

304 

2 

BUFFER(2)  =  * N ' ; 

305 

2 

CALL  READ; 

306 

2 

IF  (BUFFER ( 2 )  =  'Y')  OR  (BUFFERi 2)  =  'y'>  THEN 

307 

2 

DO; 

308 

3 

CALL  SNDSEOf.MSGIA,  SI ZE (MSG! A) ) ; 

309 

3 

BUFFER(2)  =  *N'; 

310 

3 

CALL  READ; 

31  1 

3 

IF  (3UFFER(2)  =  • Y • )  OR  (BUFFER(2)  =  * y ' )  THEN 

312 

3 

TRTA  =  TRUE; 

ELSE 

313 

3 

TRTA  *  FALSE; 

314 

3 

CALL  SNDSECK.MSG3,  SIZE(MSG3)); 

315 

3 

CALL  READ; 

316 

3 

CHANJNUM  =  ASC$HEX(BUFFER(2)); 

317 

3 

IF  (CHANJNUM  >=  1)  AND  (CHANJNUM  <=  4)  THEN 

316 

3 

DO; 

319 

4 

TABLEJRTR  =  .TXOITB(TXOINE); 

320 

4 

CALL  SNDSEQ(.MSG5,  S 1 ZE (MSG5 ) > ; 

321 

4 

CALL  READ; 

322 

4 

DESTJNETSCODE  =  ASCJHEX'BUFFER(2> ); 

323 

4 

CALL  SNDSEQK.MSG6,  SIZE(MSG6)); 

324 

4 

CALL  READ; 

325 

4 

DESTJHOSTJCODE  =  0; 

1 

> 

326 

4 

COUNT  =  BUFFERd); 

327 

4 

DO  1  =  1  TO  COUNT; 

328 

5 

DESTJHOSTJCODE  =  ROL (DESTJHOSTSCODE,  4); 

329 

5 

DESTJHOSTSCODE  =  DESTJHOSTSCODE  OR  ASC SHE X (BUFFER) 1+1 ) ) ; 

330 

5 

END; 

• 

331 

4 

CALL  SNDSEQt -MSG4,  SIZE(MSG4)); 

332 

4 

CALL  READ; 

333 

4 

IF  (BUFFER(  2 )  >=  MM  AND  (BUFFER  ( 2)  <=  *9M  THEN 

334 

4 

DO  1  =  1  TO  ASCJHEX (BUFFER(2 ) ) ; 

335 

5 

CALL  LOADfTABLEJPTR,  DESTSNETJCODE,  DESTJHOSTJCODE); 

336 

5 

CALL  LDJTABJHSKP(2 ) ; 

H  -  13  1 
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337 

5 

TAB^ES~TR  -  . T VC|  1  TB( T  <01 NL  ) ; 

336 

5 

END; 

339 

4 

END; 

340 

3 

END; 

34! 

2 

CAuL 

SNDSEQ ( . TP$  50,  S 1 Zt ( T»J 50 ) ) ; 

34  2 

2 

CAlL 

HEXJASC(CHAN$N'JM,  0); 

343 

2 

CAlL 

SNDSEQ  (.TE^I  ,  2  ; 

344 

2 

CALL 

SNDSEQ!  .TPI51  A,  SIZE  (TPJ61  AT  ) ; 

34  5 

2 

CALL 

HCX$ASC(DEST$NETfCODE,  C); 

34" 

7 

CALL 

SNDSEQ!. TEM-M  ,  2); 

347 

2 

CAlL 

SNDSEQ ( .TP$52A,  SIZE(TP$52A) ! ; 

349 

2 

CALL 

HEX$ASC(DEST$HOSTSCODE,  O) ; 

349 

2 

CALL 

SNDSEQ (. TENT  1 ,  2); 

350 

2 

CALL 

SNDSEQ(.MSG2,  E 1 ZE IMSG2 ) ) ; 

351 

2 

BUFFER! 2)  =  ’ N ■ ; 

352 

7 

CALL 

READ; 

353 

2 

IF  (BUFFER! 2 )  =  *  Y  * )  OR  (BUFFER! 2  >  =  ' y ' >  THEN 

354 

2 

ELSE 

FOREVER  =  FALSE; 

355 

- 

FOREVER  =  TRUE; 

356 

2 

END  READiLINE; 

/♦****■*■#*****  ****************  «•#*#******»##****#****»*  *******************  t » 

PROCEDURE  READSLINE  TRANSMITS  AND  RECEIVES  A  DATAGRAM 

PURPOSE  OF  THIS  PROCEDURE  IS  TO  TRANSMIT  AND  RECE I VE  A  DATAGRAM  TO  AND  rROV 
THE  UN  10  II.  THIS  PROCEDURE  DOES  NOT  MAKE  USE  0^  THE  TRT  A  HANDSHAKE. 
INSTEAD,  IT  TRANSMITS  A  FULL  DATAGRAM  TO  THE  UN  ID  AND  THEN  KnlTS 
UNTIL  THE  UNID  SENDS  A  DATAGRAM  BACK.  USED  TO  TEST  THE  UNID  II 
WITHOUT  THE  TRTA  HANDSHAKE. 

INPUT  -  DATAGRAM  IN  THE  TRANSMIT  BUFFER 

PROCESSING  -  THE  TRANSMIT  DATAGRAM  AND  RECEIVE  DATAGRAM  PROCEDURES  ARE 
CALLED  TO  SEND  AND  RECEIVE  A  DATAGRAM,  RESPECTIVELY. 

OUTPUT  -  A  DATAGRAM  IN  THE  RECEIVE  BUFFER. 

INTERFACE  -  CALLED  BY  MAIN  PROCEDURE 


357  1  L00P2:  PROCEDURE; 

359  2  CALL  TRANSJl; 

359  2  CALL  RCVJ1 ; 
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160  2 


56 1  1 


5o2  I 
565  1 

564  1 

565  1 

5t6  I 
56  ’  Z 
'68  2 
55  3  2 
'  ’0  2 
57!  2 

'  7 ' 

5/5  2 

5  '4 

5  75  2 

5.76  2 

,5  7  7  2 

573  2 

5  7  3  1 

:-3C  i 

'51  ! 


END  LOOP 2 ; 


2*****#****#**»#***»*#******#*#*.***»*#*****. 

/*  THIS  13  HE  MAIN  BODY  OF  THE  PROGRAM 


BEGIN: 


GALL  I  NIT; 

CALL  SNDSEQ!  .START'JPSnCR,  5  I  ZE  ( STARTUPSHDR) ) ; 
FOREVER  =  TRUE; 

CALL  READSLINE; 

•CALL  SCLRCM; 

DO  WHILE  FOREVER; 

CALL  REACJTXT A3; 

IF  TRTA  THEN 

CALL  C.i.K  $RXT A ; 

IF  TRAN Si  1 $RDY  THEN 
CALL  LCCP2; 

IF  TRTA  THEN 

CALL  CHKSRXTR; 

CALL  REAL5SRXTA3; 

IF  SCMCHK  <>  0  THEN 
CALL  CHKSRXTR; 

CALL  REAOiL I  ME; 

END; 

CALL  SNDSEQ; .MSG7,  S!2E(MSG7)); 

CALL  EXIT; 


END  MAIN; 


THE 


‘•'FOGLE  I  NFGRMaT'ON; 


CODE  VEA  SO'E  =  CD6IH  3125D 
•  1 1  '  EL  E  Arif.  \  SITE  =  DAEOH  27340 

MAXIMUM  STACK  S : ZE  -  GOOCH  I  2D 
325  -  NET  READ 
J  f’O'ARAM  ERPCRJS! 

END  ;F  ;JL  0  GO-PILAT’CN 


’  5  5 


5.  SBC  544  Monitor 


The  purpose  of  this  program  is  to  provide  a  monitor  capability  on 
the  SBC  544  board.  The  functions  Included  in  this  monitor  are  similar 
la  function  and  use  to  CP/'i  tools  DDT.COM  and  SID.COM.  This  monitor  is 
adapted  from  the  monitor  source  code  for  the  SBC  36/12A  board.  The 
original  monitor  cannot  be  published  in  this  document  as  it  is 
copyrighted  material  from  Intel.  The  original  source  coda  is  available, 
however,  in  the  Computer  Networks  Laboratory  on  an  ISIS  disk.  For 
information  purposes,  a  similar  monitor  can  be  developed  for  the  SBC 
33/45  board  by  starting  with  the  original  SBC  36/12A  monitor  and 
adapting  the  I/O  port  numbers  to  those  oa  the  SBC  38/45  board. 
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EXTERNAL  SYMBOLS 


USER  SYMBOLS 


3003 

OOOF 

BOCSO 

A 

0005 

3IT7 

c 

040A 

B1T3 

C 

0408 

BITS1 

r* 

031  7 

31  TS2 

c 

0343 

BITS7 

C 

00C6 

3ITSA 

c 

C0C9 

3T8L 

C 

03F6 

CHOIC 

c 

0398 

CLEAR 

s 

0412 

OLRCM 

C 

01  IF 

CMCHK 

c 

0122 

CM  IN 

C 

0’  27 

CMOUT 

c 

0131 

l.'.NCU  To 

c 

0025 

CON  1  N 

N/ 

0019 

CCN 1  NO 

c 

0023 

CCNOUT 

c 

00!  D 

CONST 

r 

0015 

CONS TO 

p 

0021 

OR 

A 

0000 

CTSMSK 

A 

0010 

CXRMSK 

A 

0080 

03RMSK 

A 

0020 

OTRMSX 

\ 

0001 

ERROR 

A 

COOE 

EVPA.R 

c 

040F 

EXIT 

C 

0012 

1 NBUF 

C 

0414 

IN .  T 

c 

002  7 

ini  r  i 

v> 

OOA1 

INIT2 

C' 

0076 

IN1T3 

C 

0081 

IN1T4 

c 

008C 

i'll  T  > 

2 

0046 

LF 

A 

000  A 

MCTLA 

c 

041  1 

VENU 

c 

0204 

MSGS 

c 

014F 

NOP  AR 

2 

040E 

ODPAR 

C 

0410 

OTWT 

c 

0131 

PAR 

037A 

PARE 

c 

0100 

PAR  N 

■2 

OOF  A 

PARX 

C 

0103 

RATE 

c 

0249 

RETURN 

c 

0!  38 

R 1 MSK 

A 

0040 

RTSMS< 

A 

0002 

RXRDY 

A 

0001 

SAV  1  T 

(•' 

0094 

SCLRCM 

c 

0003 

SCMCHK 

c 

0006 

SCM 1  N 

£ 

0000 

SC '100  T 

C 

OOOC 

SCAT  A 

A 

0020 

Si  DENT 

A 

0022 

SINI  T 

Q 

0000 

S i NTEN 

A 

0021 

SLCTRL 

A 

0023 

3LSrAT 

A 

0025 

SNCMCT 

A 

0024 

SMDMST 

A 

0026 

'.TART 

0000 

S  TP  1 

C 

O-lOC 

STP2 

c 

0400 

ST?A 

C 

GOOD 

STPB 

r* 

OOEO 

TXMTY 

* 

0020 

JLCA3 

p 

01  30 

VALNUM 

r' 

0145 

W3VE0 

A 

0000 

XOF 

A 

0013 

<CN  A  0011 

ASSE'-'BLY  COMPLETE,  NO  ERRORS 
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207  ; 


LOG 

OBJ 

-  1  NE 

SOURCE 

STATEMENT 

J3F6 

74 

293 

BTRL  : 

OB 

1 396  MOD  256 

;  1 1 0  bps 

o:f; 

05 

299 

SB 

1396/256 

03F3 

00 

300 

ca 

1024  MOO  256 

;  150 

03F9 

04 

30! 

DB 

1924/256 

0  iFA 

00 

302 

08 

512  moo  256 

;  300 

03F3 

02 

305 

C3 

5 ’2/256 

03FC 

00 

304 

DB 

256  MOD  256 

;600 

03FQ 

01 

305 

CB 

256/256 

03FE 

80 

306 

DB 

1  23  '<00  256 

;!  200 

G3FF 

CO 

307 

DB 

103/255 

0400 

40 

308 

DB 

64  MOD  256 

;  2400 

0401 

00 

309 

03 

64/256 

0402 

20 

310 

03 

32  1500  256 

;  4800 

0403 

00 

31  1 

03 

32/256 

0404 

10 

51  2 

03 

16  ‘WO  256 

;  9600 

0405 

00 

313 

DB 

16/256 

0406 

08 

314 

D3 

8  '400  256 

;  19200 

040  7 

00 

315 

OB 

3/256 

00 

o 

ry 

04 

316 

03 

4  MOO  255 

;  38400 

0409 

CO 

5!  7 

03 

4 '256 

513 

; 

040 A 

02 

319 

31  r  7 : 

03 

C0C0Q01 08 

;7  bit  mask 

OIOS 

03 

5  30 

B 1  T8 ; 

OB 

C000001 18 

;  3  bit  mask 

0  IOC 

00 

321 

ST=1  : 

00 

0 

;1  stop  bit 

MOO 

34 

322 

s  TP  2: 

OB 

00009 10CB 

;2  stop  bi ts 

0403 

00 

323 

NCPA.R : 

03 

9 

;No  par i ty 

•N  •  Ap 

1  3 

334 

E  V  &  AR : 

03 

000! 1 0008 

;Even  parity 

0410 

03 

325 

00  PAR : 

03 

OOCOtOOOB 

;Odd  parity 

o: 

r$  :n) 

j  2  b 

'-1CTL  A: 

'"'3 

0000001  OS 

; Modem  control  de'ault  (DTR  off 

04!  2 

1A 

32  7 

323 

CLEAR: 

03 

1  AH , ’ t ’ 

; String  to  clear  screen  tSoroc 

10  ■■ 

C  413 

2  4 

329 

3114 

03 

55) 

INPUT; 

03 

5  ; 1 rpu  t 

buffer,  max  4  chars 

0415 

go 

v ; 

m 

0  ; 4  chars  in  buff 

0115 

333 

Os 

A  ;  S for  a 

ge  for  chars 

555 

; 

1413 

■i~  5E6420 

554 

SB 

■and  33S 1 

'♦IT 

j 54255 

3  35 

556 

END 

PL  :  3  .VW.> 
POOS  '  :00F 
SSL  MM  :  ,00  5 


CONST  C  0015 

scmou  r  c  oooc 


SONIN  ;  001} 

;on«'hk  :  scco 


00N0U7  0  00 !9 
S' ."UN  0  000  3 


EXIT  c  00  I  2 
s i n i r  c  oooo 
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0361  OA 

LOC  OBJ  LINE  SOURCE  STATEMENT 


0362  20202064 
0366  20202020 
036A  20202050 
036E  61726974 
0372  79202020 
0  3/6  20202020 
0374  3120 
03 7C  20202020 
0280  31 2D4E6F 
0384  6E652C20 
0338  322C4576 
03SC  656E2C20 
0390  33204^64 
0354  64 
0395  00 
0396  OA 
0397  OA 


288  ; 

289  DB  ’  d  Parity 


290  PAR:  DB  M  ' 

291  OB  '  1 -None,  2-Even,  3-Odd’ , CR ,LF,LF 


292  ; 

0398  55686F77  293  CHOIC: 

and  CR', CR,LF 
039C  2C63686F 
03 AO  6  5636520 
03A4  5279206C 
0548  65  7 17465 
0340  722C2C/3 
03B0  70516765 
0334  2C6F7220 
0333  656F6060 
03BC  612C206E 
07C0  75606265 
03C4  722C206I 
03C8  6E642043 
03CC  52 
03C0  00 
03CE  OA 

03CF  43697420  294 

0303  435220  77 

0307  53656E20 

0303  6C656E75 

03DF  20  73656C 

05E3  65637469 

03E7  6F6E7320 

03EB  636F6D70 

03EF  6C65 7463 

03F 5  3A2024 


09 


C(3 


'Show  choice  by  latter,  space  or  comma,  number. 


'Hit  CR  when  menu  selections  complete:  $' 


295  ; 

296  ;Rate  t.jble  for  2.45  ‘4Hz  xtal 


i 


-  14  4 


J 


■Awl  Crfl 
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02D1 

00 

- 

LOC 

OBJ 

LISE 

SOURCE 

STATEMENT 

0202 

OA 

y 's';] 

0203 

20202020 
kbps' ,OR,LF 

279 

,LF 

DB 

1 

9-38.4  Vv‘J 

0207 

20202020 

< 

0203 

20202020 

02DF 

20202020 

02E3 

20202020 

02E7 

20202020 

02E3 

20202020 

02EF 

20203920 

02F3 

33332E34 

02F7 

206B6270 

02F3 

73 

02FC 

00 

02F0 

OA 

02FE 

OA 

230  ; 

-  5 

02FF 

20202062 

23 1 

OB 

'  b 

Data  Sits1 

0303 

20202020 

030  7 

20202044 

0308 

61746120 

030F 

42697473 

031  3 

20202020 

0317 

3220 

232  3ITS1 : 

OB 

'2  ' 

0310 

20202020 

283 

OB 

•  1-7 

bit,  2-8  bit* ,CR,LF,LF  •  \*S 

0310 

31203720 

V  V 

0321 

6269742C 

0325 

20322038 

0529 

2C626974 

-  i 

0320 

CD 

032E 

OA 

032F 

CA 

284  ; 

0330 

20 202063 

235 

08 

'  c 

Stop  3 i ts  ' 

0334 

20202020 

"  * 

0333 

20202053 

03SC 

745F7020 

•  •.  -  * 

0340 

42697473 

0344 

20202020 

0348 

3120 

296  BIT32: 

CB 

'  1  ' 

1 

934A 

20202020 

237 

03 

•  1-1 

bit,  2-2  b i ts * ,CR ,LF,LF 

0  34E 

31203120 

035  2 

6 269 74 7C 

0356 

20322032 

03  5A 

20626974 

033E 

73 

035F 

00 

a 

0360 

OA 

H 
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022E 

OD 

LOC 

OBJ 

022F 

OA 

0230 

OA 

0231 

20202061 

0235 

20202020 

0239 

20202044 

0230 

61 746120 

0241 

52617465 

0245 

20202020 

0249 

3720 

0248 

20202020 

024F 

302D2031 

0253 

31 302C20 

0257 

312D2031 

0258 

35302020 

025F 

322D2033 

0263 

3030 

0265 

OD 

0266 

OA 

0267 

20202020 

0269 

202C2020 

026F 

202C2020 

027  5 

20202020 

0277 

20202020 

0279 

20202020 

027F 

20202020 

0233 

2020352D 

0  297 

20365050 

0238 

2C2G342D 

028F 

31323030 

0295 

2C20552D 

0297 

32345030 

0298 

00 

0290 

OA 

029D 

20202020 

19.2',  OR 

02A1 

20202020 

02A5 

20202020 

02A9 

202020  20 

OOAO 

20207020 

0231 

20202020 

0205 

202C2020 

0  289 

20203620 

02GD 

34393030 

02  Cl 

20205720 

0203 

39563050 

0  209 

2C20  392D 

02  CO 

51 393E32 

LINE 


274 


275  RATE: 

276 


7 


2  '3 


SOURCE  STATENtNT 


OB  '  a  Data  Rata 


09  '7  ' 

D8  '  0-  no,  I-  150,  2-  300’  ,CR,LF 


OB 


2400'  ,CR,t.F 


3-  600,  4-1200,  5- 


OB 


6-4300,  7-0600,  3- 
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013F 

77697468 

—  \ 

LOC 

OBJ 

L 1 NE  SOURCE 

STATEMENT 

0193 

20746865 

0197 

20554E49 

\  * 

0199 

44204949 

019F 

20695342 

— ’  '  •  \ 

01  43 

43203534 

01  A7 

3420496E 

01  A3 

7 165726E 

OMF 

65742050 

01B3 

726F746F 

0137 

536F6C20 

" 

31  83 

23495029 

0 1  3F 

00 

0 1  CO 

OA 

Old 

20202020 

269  DB 

’  to  simulate  an  actual  host  system. ’ ,CR,LF 

01  C3 

746F  2073 

, 

0109 

6960756C 

31  CO 

61746520 

0101 

61&E2061 

3’05 

6374756! 

0109 

6C20686F 

d  00 

73742073 

•  /  ‘ 

01  El 

79737465 

01E5 

602E 

0 1 E  7 

00 

. 

3128 

OA 

01  £9 

43697420 

2  70  DB 

’Hit  any  key  to  continue  S’,CR,LF 

•  '  « 

oi:o 

61 6E7920 

01  FI 

63657920 

01  F  6 

716F2063 

- 

31F9 

6F6E7469 

01  FD 

6E756520 

*/ 

0031 

24 

0702 

00 

•v  ’•> 

0203 

OA 

271  ; 

272  MENU: 

0204 

46656174 

273  DB 

'Feature  Name  Choice 

Option’ ,CR,LF,LF 

•  ■  ■ , 

0203 

75726520 

02CG 

20202020 

0210 

204E6I60 

v 

0214 

65  202020 

•  V  * 

0213 

2043636F 

02 1C 

69636520 

.  ■  "  .  •  * 

0220 

20202020 

0224 

20202020 

0228 

4F 70 7469 

•  - 

022C 

6F6E 

•  *  *  *  -v 


H  -  111 


ISIS-II  6080/8085  MACRO  ASSEMBLER,  V4.I 


239  ; 


LOC 

C8J 

LINE 

SOURCE 

STATEMENT 

240  ;  Output  byte 

to  remote 

compu  ter 

241  ; 

242  CMOUT: 

243  OTWT : 

oiii 

0B25 

244 

IN 

SLSTAT 

;Get  tho  transmit  status 

01  33 

E620 

245 

ANI 

TXMTY 

0135 

CA3101 

0  246 

JZ 

OTWT 

;Not  ready  yet 

0133 

79 

247 

MOV 

A,C 

;lt  is  now,  sond  the  byte 

0139 

0320 

043 

OUT 

SOATA 

0138 

09 

249  RETURN: 

250  ; 

RET 

;Default  return 

01  5C 

FE61 

251  ULCAS: 

CPI 

'a' 

;Less  than  lower  case  a? 

0!  3E 

F3 

252 

RM 

;  Yes 

01  3F 

FE  73 

253 

CPI 

•z'4-1 

;>  lower  case  z? 

01  41 

FO 

254 

RP 

;  Yes 

0142 

0620 

255 

SUi 

1  1 

;No,  clear  lower  case  bit 

01  14 

C9 

256 

RET 

257  ; 

0145 

FE30 

258  VALNUM: 

CP! 

'0* 

;Less  tnan  0? 

j  1  47 

37 

259 

STC 

01  48 

c3 

260 

SM 

;Carry  set;  not  valid  number 

0149 

FE3A 

251 

CPI 

•  .  1 

;More  than  97 

0 1 48 

37 

262 

STC 

01  to 

FO 

203 

RP 

;Carry  set;  not  valid  number 

0140 

3F 

264 

CMC 

014E 

C9 

265 

RET 

;Carry  cleared;  valid  number 

266  ; 

01 AF 

1 A 

2o  7  VSGS : 

OB 

1  AH, 'Configured  for  fhe  CCS  23 T 0  CPU  (at  4  MHz), 

17  A.jg  34 

' , CR ,LF 

0 1  50 

436F6E66 

01  34 

69677572 

0153 

65642066 

01  6C 

or  722074 

0150 

63652043 

0164 

43532032 

0163 

33  513020 

01 60 

43505520 

0170 

2861 7420 

01  ’4 

3420404’ 

0!  ’3 

7i292C21 

01  7C 

31 372C41 

0130 

756  720  33 

0134 

74 

0165 

CO 

0  1 

0  A 

0137 

576F7263 

268 

DO 

' Work i r 

g  with  the  UN  10  II  iSBC  544  Internet 

°rotc  col 

(IP)' ,CR,LF 

0188 

396E6  720 

H  -  140 


ISIS-II  8080/0085  MACRO  ASSEMBLER,  V4.1 


0100  3A0F04  C  100  PARE:  LDA  EVPAR  ;Get  even  par  mask 

LX  OBJ  LINE  SOURCE  STATE, MENT 

0103  BO  1R1  PARX:  ORA  B  ; Add  In  7/8  and  1/2  bits 

0104  47  192  MOV  9, A  ;Resave 

193  ; 

194  ; 

195  ;  User  provided  Initialization  routine  (Baud  rate,  etc.) 

196  ;‘**»UART  I N I Tl AL I ZATION  ROUTI NE**** 


197 

For  WO 

or  NS 

8250  UART 

198 

0105 

3A1  104 

C  199 

LOA 

MCTLA 

;3et  DTR,  RTS,  etc. 

0 1  08 

0324 

200 

OUT 

SMDMCT 

;Send  it 

01  OA 

73 

201 

MOV 

A, 8 

;Get  7/8,  1/2,  N/E/0  bits 

01  OB 

FS8D 

202 

OR  1 

80H 

;Set  OLAB  hi  for  data  rate 

01  CD 

0323 

203 

OUT 

SLCTRL 

; Send  i t 

01  OF 

-c 

204 

MOV 

A.M 

;Get  1 st  byte 

0110 

0320 

205 

OUT 

SOATA 

;Send  it 

01  12 

23 

206 

1  NX 

H 

01  1  3 

ur 

207 

MOV 

A.M 

;3et  2nd  byte 

01  1  4 

0321 

208 

OUT 

SINTEN 

;3end  It 

0116 

73 

209 

MOV 

A,B 

; Reget  7/3,  1/2,  N/E/O  bits 

01  1  7 

0323 

210 

OUT 

SLCTRL 

;Send  it 

0 1  1  J 

AF 

21 1 

».RA 

A 

;lnit  and  clear  last  registers 

o;  i  a 

0321 

212 

OUT 

SINTEN 

01  1C 

0  325 

'213 

OUT 

SLSTAT 

01  i  E 

09 

21  4 

PET 

215 

2  1 6 

Clear 

ccm.iv.ini  cj+ions 

Uianne  1 

21  7 

Co  not  cutout  anything  to  the  remote!!!!!! 

213 

01  IF 

"320 

219 

IN 

SOATA 

Oi  21 

29 

220 

RET 

221 

222 

■>.eck 

connun  \ 

;hannel  for  anything 

223 

3e*ur 

*  i  th 

accumu 1  a* 

or-0  If  nothing  ready. 

22  J 

non-zero  I f 

a  byte  is 

waiting 

225 

226 

IX.-K: 

01  22 

0925 

22  7 

IN 

SLSTAT 

0U4 

2601 

229 

••Nl 

RAHOV 

Oi  26 

09 

229 

7«i3 

nET 

L.  *  ') 

231 

1  rout 

byte 

from  ramot 

e  farmfnal 

232 

23  3 

;mi  N: 

01  2  7 

08  2  3 

254 

1  N 

•2LSTAT 

;»d,)ed  for  speed 

91  29 

E601 

235 

'Nl 

HARDY 

;  idded  ‘or  speed 

0 1  23 

2A2  ’OI 

0  236 

JZ 

■:m.n 

;afJed  for  speed 

j  1 2E 

0329 

23  7 

IN 

SOATA 

; Set  good  daf J 

0130 

09 

233 

'•FT 

isis-ii  3000/8005  macro  assembler,  va.i 


0095 

23 

141 

1  NX 

H 

;Get  selection 

LOC 

OBJ 

LINE 

SOURCE 

STATENENT 

0096 

7  E 

142 

MOV 

A,M 

0097 

C0450! 

0 

1  43 

CALL 

VALNUM 

;  1  s  It  a  valid  number? 

009A 

0A4600 

c 

144 

JC 

INI  rs 

;Repeat  If  not 

0090 

12 

145 

STAX 

D 

; Save  1 t 

009E 

C34600 

c 

146 

JMP 

INITS 

;Another  selection? 

147  ; 

00  A 1 

3A4902 

46  INIT1  : 

LDA 

RATE 

;  Get  data  rate 

OOA4 

0630 

1  49 

SUI 

'O' 

;Make  binary 

00A6 

FEOA 

150 

CPI 

10 

;Check  for  more  than  allowed 

00A8 

F 24600 

C 

151 

J=> 

INITS 

;Repeat  if  so 

00A3 

0/ 

152 

RLC 

;Double  for  two  bytes/entry 

OOAC 

2IF603 

c 

1  33 

LX  1 

H.BT3L 

;Get  data  rate  table  addr 

XAF 

1500 

154 

MV  1 

9,0 

;  1 ni t  D 

GOBI 

5F 

155 

MOV 

E,  A 

;Put  offset  1  n  E 

00*32 

19 

156 

DAD 

0 

;Add  to  table  addr 

1  57  ; 

0033 

3A! 703 

r 

153 

LDA 

BITS1 

Get  data  bl ts 

OOBo 

FE3 1 

159 

CPI 

'1  ' 

;Check  for  7  bit 

00B8 

CAC600 

c 

150 

JZ 

3ITS7 

It's  7  bit 

003B 

FE32 

161 

CPI 

•2' 

;Check  for  8  bit 

OOBO 

02 4600 

r 

162 

JNZ 

INITS 

Error, do  agal n 

COCO 

5A0B04 

c 

163 

LOA 

9i  T8 

Get  8  bit  mask. 

*>C3 

03'900 

c 

164 

JMP 

3ITSA 

Conti nue 

OOC6 

3A0A04 

c 

165  3irS7: 

LDA 

81  77 

;Get  7  bit  mask 

.'0  39 

41 

i 66  B1T3A: 

1  (4"’  • 

MOV 

3, A 

Save  1 t 

.'OCA 

3A4SQ3 

c 

!  0.  , 

168 

LDA 

B 1  TS2 

Got  stop  bits 

■Me.  o 

Ft  3  1 

169 

CPI 

'  1  ' 

Check  for  1  bit 

'Y:.r 

o.vrco 

c 

1  70 

JZ 

STPA 

It’s  1  bit 

'  > 

rr 

17! 

C°l 

'2' 

Check  for  2  b i ts 

>004 

:.m.-joo 

r 

i  72 

jNZ 

INITS 

Error,  start  over 

'  M 

3A0D04 

v_/ 

1  3  3 

LDA 

STP2 

Get  2  bit  mask 

CODA 

05  EC CO 

■-* 

174 

JMP 

STPB 

Cont 1 nue 

0000 

34000  1 

£ 

t  15  STPA: 

LDA 

STP! 

Get  1  bit  mask 

09EU 

BO 

146  5P3: 

ORA 

3 

Aid  7/3  bit  mask 

OOE! 

; ; 

1  7  7 

MOV 

3,  A 

Re save  i t 

cot: 

3  4 ’AO  3 

>3 

1  3  3  , 

1  39 

LOA 

PAR 

et  rar  i  ry 

'ME  5 

►  Z31 

:  30 

■p  ; 

'  1 ' 

Check  for  none 

■’  C  C  ’ 

:af»oo 

1  51 

JZ 

It's  no  j  ar  i  ty 

OCEA 

F  E  32 

1  4  7 

2°  1 

>  v  r 

Check  for  even 

OOEC 

>0001 

163 

j : 

PARE 

It's  even  oar  > tv 

00  EF 

FE33 

1  34 

CPI 

•3' 

Check  ‘or  odd 

OOF  1 

02  !6F*0 

1  33 

JNZ 

1  N :  TS 

Error,  no  again 

OOF  4 

5A !  0  14 

1  76 

LDA 

OQPAR 

Get  odd  par  mask 

Y'-7 

'  ’.A  391 

>37 

jr-p 

PARX 

Con t i nue 

O'OF  A 

3  V-E  .  4 

133  FARM: 

LDA 

NCP  AR 

Get  no  par  mask 

OGf.j 

■'030' 

' 

!  ■>  ) 

JMP 

PARX 

Cont  > 

-  :  is 


H 


ISIS-II  3080/8085  MACRO  ASSEMBLER,  V4.1 

02  ;  Menu  Initialization  routines 
LOC  OBJ  LINE  SOURCE  STATEMENT 


93  ; 

94  INI T: 

OC27 

2A0100 

95 

Ihld 

*bvec  +  1 

;Calculate  the  bios  console 

002A 

1 10300 

96 

1  x  i 

d,  3 

;  status.  Input,  output  vectors 

0020 

19 

97 

dad 

d 

00  2E 

222100 

C 

38 

shld 

constO 

0031 

19 

99 

dad 

d 

0032 

222300 

C 

100 

sh  1  d 

ccn  1  nO 

0035 

19 

101 

dad 

d 

0036 

222500 

c 

102 

sh  1  d 

cnoutO 

103  ; 

0039 

1 14F01 

0 

104 

LX  1 

D , MSGS  ; 

CCS  slgnon 

003C 

0E09 

105 

MV  1 

C.9 

003E 

C00500 

106 

CALL 

5 

0041 

oeoi 

107 

MV  1 

o,i  ; 

Get  keystroke 

0043 

C00500 

108 

CALL 

5 

0046 

111204 

c 

109  INITS: 

LX  1 

0 ,  CLEAR  ; 

Clear  screen 

0049 

0E09 

110 

MV  1 

C,  9 

0048 

C00500 

1 1 1 

CALL 

5 

004E 

1 10402 

c 

112 

LX  1 

O.MENU 

0051 

0E09 

113 

MV  1 

C,9 

Display  menu  selections 

0053 

C00500 

1  14 

CALL 

5 

0056 

1 1 1 404 

c 

115 

LX  1 

D, INBUF 

;Get  selection 

0059 

oecA 

116 

MV  | 

C,10 

0058 

CD0500 

1  1  7 

CALL 

5 

00  3  E 

211504 

r' 

N* 

118 

LX  1 

H, IN9UF4 

;Check  for  null  selec* 

006 1 

7£ 

119 

MOV 

A,M 

CC62 

97 

120 

ORA 

A 

0063 

0AA100 

c 

121 

JZ 

INIT1 

No  select,  go  Initialize 

0066 

23 

122 

i  NX 

H 

Set  feature 

006  7 

7£ 

123 

MOV 

A,M 

CQ68 

CD 300 1 

c 

124 

CALL 

ULCAS 

Make  upper  case 

0068 

FE4 1 

125 

CPI 

'A' 

Data  rate? 

0060 

114902 

r 

125 

LX  1 

D.RATE 

Get  save  addr 

0070 

027600 

c 

127 

JNZ 

INIT2 

No 

0073 

039400 

c 

123 

,MP 

SAVIT 

Save  It 

0076 

FE42 

123  INIT2: 

C?l 

'3' 

Data  bits? 

0073 

1 1  1  7C3 

2 

130 

LX  1 

0,81 TSI 

Set  save  addr 

00  78 

028100 

131 

JNZ 

1 N 1  T3 

No 

007E 

C39400 

c 

132 

JMP 

SAVIT 

Save  it 

0031 

FE43 

133  INI T3: 

CPI 

'G* 

Stoo  bits? 

0083 

114803 

c 

134 

LX  1 

0,8 1 TS2 

Set  save  addr 

0086 

028000 

c 

135 

JNZ 

INIT4 

No 

0089 

039400 

c 

136 

JMP 

SAV  1  T 

Save  I t 

0080 

FE44 

137  INI  T4: 

CPI 

'O' 

Par  1 ty 

008E 

1  1  7  \0  5 

£ 

1  38 

LX  1 

0  ,PAR 

Get  save  addr 

0091 

024600 

Q 

139 

JNZ 

INITS 

No 

0094 

23 

140  SAVIT: 

1  NX 

H 

So  oast  ie  1  1  mi  ter 

I.  * 

r 

r 

f. 


'  ISIS-II  8080/3085  MACRO  ASSEMBLER,  74.1 


tl 

0001 

43 

DTRMSK 

EQU 

000000019 

DTR  bit  mask 

i 

toe 

OBJ 

LINE 

SOURCE  STATEMENT 

0002 

44 

RTSMSK 

EQU 

000000108 

RTS  bit  mask 

r.* 

0010 

45 

CTSMSK 

EQU 

0001 0000B 

CTS  bit  mask 

0020 

46 

OSRMSK 

EQU 

00 1 OOOOOB 

OSR  bit  mask 

k 

0040 

47 

RIMSK 

EQU 

010000003 

Rl  bit  mask 

■ 

0030 

43 

CXRMSK 

EQU 

1 OOOOOOOB 

Received  carrier  detect 

49 

» 

► 

COCO 

50 

CR 

EQU 

00  H 

h1 

OOOA 

51 

LF 

ECU 

OAH 

* 

001  1 

52 

XON 

EQU 

1 1  H 

r» 

0013 

53 

XOF 

EQU 

1  3H 

0005 

54 

bdosO 

equ 

5 

0000 

55 

wbvec 

equ 

0 

56 

; 

■ 

57 

esag 

;Relative  assembly  for  ASM80 

58 

t 

• 

59 

;  Star-; 

of  Jump 

table  i s  pub  1  i c 

60 

. 

61 

pub  1 1  c 

sinit,  setrem,  scmchk,  semin,  semout 

62 

t 

63 

;  Consols,  3D03 

and  warm  boot  are  public 

64 

2  !• 

65 

publ lc 

const,  conin,  conout,  bdos,  exit 

■ 

66 

t 

67 

;  Jump 

table 

. 

>■ . 

63 

1 

*  ■ 

69 

$r4RT: 

0000 

C32700 

0 

70 

sin)  t: 

JMP 

1  Mi T  ; 1 n i  +  i a  1 i zat i on 

a 

0003 

C31F01 

c 

71 

sc  1 r  cm 

JMP 

CLRCM  ; C 1  ear  comm  channel 

■0006 

C32201 

c 

12 

scmchk 

JMP 

C.MCHK  ; Check  channel 

0009 

C3270I 

c 

73 

semi  a: 

JMP 

CM  IN  ; Input  byte 

OOCC 

033)01 

74 

semout 

JMP 

CMOUT  ; Output  byte 

76 

» 

;  CP/M 

BOOS  and 

3I0S  cail  vectored  jumps 

• 

7  7 

> 

OOOF 

C30500 

73 

bdos : 

jip 

bdosO  ;3dos  cal ) 

001  2 

C30CC0 

79 

exi  t: 

Jmp 

wbvec  ;Wam  boot 

30 

t 

1015 

2A2 i 00 

0 

31 

const: 

ibid 

constO  ;3Ios  console  status 

0016 

£9 

82 

ccn  i 

• 

0019 

2A2300 

c 

83 

con i n : 

Ibid 

coninO  ;3!cs  console  Input 

cot: 

£9 

34 

pen  1 

0010 

2A2500 

0 

36 

conout 

Ibid 

cnoutO  ;3ios  con 

sole  output 

0020 

£9 

66 

peb  1 

i 

002) 

0000 

97 

JOns tO 

dw 

0  :S'os  console  status  vector 

r 

co:j 

jOOO 

88 

con ’ nO 

Jw 

J  ;3ics  console  input  vector 

p 

0025 

COCO 

99 

cn  onto 

dw 

0  ,3ios  console  output  vector 

00  ; 
9!  ; 


H 
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LOC  OBJ 


.  INE 


SOURCE  STATEMENT 


r* 


i  U 


f  M  e  node 

nigher  speeds 

'o  support 
rurn  i  ng 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 
1 1 
1? 
1  3 

14 

15 

16 


»••»«•*»*«*«»»#•»••»»»*«**•******#*********«»**•» 

LINK80  SUBROUTINES  * 

»*»»»»«-»«-»«»»»»»**•*»•**«**•»»***•»»*»»#*#**»«**** 

In  directory  as  TSBS.ASM,  SBS.ASM,  or  S3S.MOD 
Set  up  for  California  Computer  System  2810  CPU 
(at  4  MHz)  which  uses  the  WD  or  NS  8250  UART 
This  software  module  was  developed  by  Capt  C.  T.(Tom) 
Childress  on  his  own  time  and  with  his  own  resources 
for  use  with  his  own  CP/M  system  communications 
program.  It  Is  a  proven  module  of  software.  This 
software  and  hts  system  are  used  In  his  thesis  as  a 
software  validation  tool  for  the  SBC  544  board. 

Any  other  use  without  prior  written  permission  from 
Capt  Childress  is  strictly  prohibited. 


17 

;  Vers 

1.0, 

10 

May 

32 

13 

;  Vers 

1.1, 

26 

Sep 

82 

19 

;  Vers 

1.2, 

19 

Oct 

62 

20 

;  Vers 

1.3, 

1  1 

Feb 

93 

21 

;  Vers 

1  .4, 

24 

Mar 

83 

22 

;  Vers 

1-5, 

3 

lui 

95 

23  ; 

24  ; 

;  Vers 

1  .6, 

30 

V  j  1 

94 

25  ; 

26  ; 

Vers 

1  .7, 

1  7 

Aug 

94 

27  ; 

23 

29 

30 

31 


Added  Echo  to  remote  for  terminal  mode 
Deleted  the  X0N/0FF  and  Echo  for  use  with 

in  the  terminal  mode  file  transfer  mode 
Modl f ied  to  work  with  the  UN  ID  II  I  SBC  544 

the  Internet  Protocol  (IP)  datagram  exchange 

on  tne  i SBC  544. 


EQUATES 


0020 

32 

304  TA 

EQU 

20H  ; 

Ser 1  a  1  data  port 

0021 

33 

SiNTFN 

ECU 

SOATAtl  ; 

Interrupt  enable  port 

0C22 

34 

SI  DENT 

ECU 

SCATA+2  ; 

Interrupt  1  dent  I  f  Icat  1  on  port 

0023 

55 

SLCTRL 

ECU 

CDATAtJ  ; 

Line  control  (tDLAB)  port 

0024 

36 

3MDMCT 

EOU 

30ATA+4  ; 

Modem  control  port 

0025 

57 

SLSTAT 

CQU 

SDATA+5  ; 

L 1 ne  status  port 

0026 

38 

SVOMST 

EJU 

S0AT4+6  ; 

Modem  status  port 

39 

t 

0001 

40 

RXRDY 

EOU 

C0000001 3 

;Rx  data  aval  labia 

0020 

41 

TXMTY 

EQU 

00 1 OOOOCB 

;Tx  buffer  empty 

000E 

42 

ERROR 

EOU 

'0001 1  tOQ 

; Error  bit  mask 
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was  used  here  because  it  provides  the  known  working  high  data  rate  (9603 
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SNOINTVECTOR 

/*##*#****#****#***********#*■»#*##*♦*■**#****##**##*****  »»«•«**»  j 

/*  V 


/* 

DATE: 

17  July  1984 

*/ 

/* 

VERSION: 

1  .0 

*/ 

/* 

V 

/* 

T 1  TLE : 

SBC  544  Monitor 

V 

/» 

FILE  NAME: 

SBC544.SRC 

V 

/* 

OWNER : 

C.  T.  Ch  1  1  dress 

V 

/* 

V 

/* 

SOFTWARE  SYSTEf 

4:  Intel  System  III,  ISIS  II  (V 

4.2,  4.3) 

*/ 

/* 

USE: 

Provide  a  bare  minimum  monitor 

capabi 1 i ty 

V 

/* 

for  the  SBC  544  board 

V 

/* 

V 

/* 

CON  TENTS: 

Source  Code  Listing 

V 

/* 

*/ 

/ *»**♦»*»*♦»*»***»*********»  ***♦*#*»»•»»»****•**»•»»«»*»»»#*«** f 

ABSTRACT 

THIS  PROGRAM  IS  THE  ROM  BASED  MON  I  TOR  FOR  THE  iSBC  544.  IT  PROVIDES 
THE  USER  WITH  A  MOOERATE  LEVEL  OF  CAPABILITY  TO  EXAM  I NE/MOO I FY  MEMORY 
AND  REGISTERS,  CONTROL  PROGPAM  EXECUTION,  AND  LOAD  PROGRAMS. 


ENV I RONMENT 


THE  SBC  MONITOR  COMMUNICATES  WITH  THE  USER  1 1 A  AN  INTERACTIVE  TERMINAL 
ITT', CRT'  ATTACHED  TO  SERIAL  PORT  0. 

PROGRAM  ORGANIZATION 

THE  PROGRAM  IS  DIVIDED  INTO  I  DATA  AND  2  CODE  MODULES: 

1.  DATA  DECLAP  ATI  ON  '10DULE .  GLOBAL  DATA  DECLARATIONS. 

2.  COMMON  ROUTINES.  LOWER  LEVEL  PROCEDURES 

3.  COMMAND  MODULE.  INDIVIDUAL  COMMANDS  AND  OUTER  3LCCK 


CALLING  GRAPH 

>>COMMAND  DISPATCH  ‘VDDULE  (CUTER  BLOCK) 
I  .‘ID  I V  i  DU  AL  COMMAND  PROCCEDURE  S 
COMMON  ROUTINES 


T> 
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GLOBAL  DATA  STRUCTURES 

THE  MONITOR  MAINTAINS  THE  USER'S  MACHINE  STATE  (REGISTERS)  IN  A 
WORD  ARRAY.  THE  REGISTERS  ARE  SAVED  FROM  THE  USER'S  STACK 
AS  PUSHED  BY  PLM86  INTERRUPT  PROCEDURE. 

ADDRESSES  TO  THE  2**16  ADDRESS  SPACE  ARE  IfPLEMENTED  WITH 
ADDRESS  STRUCTURES  ALLOCATED  AS  TWO  ADDRESS  STRUCTURES.*/ 

1  MON  I  TOR: CO;  /*8EG' NN I NG  OF  MODULE*/ 


y***#*******#*#****#*#**##**»********* ************* **»♦##*#***** 

GLOBAL  DATA  OECLARAT I ONS  MODULE 


(• 


ABSTRACT 


THIS  MODULE  CONTAINS  ALL  THE  GLOBAL  DATA  DECLARATIONS  AND 
LITERALS  (EQUATES) . 

MODULE  ORGANIZATION 


THE  MODULE  IS  DIVIDED 

1.  UTILITY  SECTION 

2.  I/O  SECTION 

3.  MEMORY  ARGUMENTS 

4.  REGISTER  SECTION 


INTO  5  SECTIONS: 

GLOBAL  FLAGS, VARIABLES, EQUATES 
I/O  PORTS, MASKS, AND  SPECIAL  CHARS 
SECTIONS  STRUCTURES  FOR  ADDRESSS 

USER  REGISTER  SAVE  AREA 


*/ 


/»**»*»*»»♦*»*****»* 

*  UTILITY  SECTION  * 

*****************  *  * / 


2 

1 

R$MASK :  PROCEDURE 

BYTE  EXTERNAL 

;  /*  USE  THE  PLM80.LIB  WHEN  LINKING  */ 

3 

z 

END  RSMASK 

• 

• 

4 

1 

SSM4SK:  PROCEDURE 

(MASK)  EXTERNAL; 

3 

2 

DECLARE  -IASK  BYTE; 

6 

2 

END  SSMASK: 

-f 

i 

DECLARE 

1  NTS  VECTOR! 8) 

ADDRESS, 

/»  INTERRUPT  VECTORS  */ 

• 

TRAPS  1  NT 

ADCRESS, 

/*  POWER  FAIL  SENSE  */ 

- 

PITS  75 

ADORE SS, 

/*  T 1  ’ER  INPUTS,  TINTO  S  TINT1  */ 

INTS65 

ADDRESS, 

/»  RING  INDICATOR  AND  CARRIER  DETECT  */ 

’ 

INTS55 

ADDRESS, 

/*  FLAG  (FI  NT)  AND  MULTIBUS  INTERRUPT  */ 

R 1 MSMASK 

BYTE, 

/*  INTERRUPT  MASK  RETURNED  BY  RIM  */ 

* 

KAPSISTSPTR 

LITERALLY 

' 024H ' ,  /*  INTERRUPT  LOCATIONS  */ 

• 

1  NTS  75SP  TR 

LI  TERALLY 

•03CH' , 

_ 

INTS65SPTR 

L  1  TERALLY 

'034H' , 

’  *■*. 

H  - 

1  49 

•-  -V  • - -v  -% 


-y--^  •-  i.*  -p  o ; 
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INTS55SPTR  LITERALLY  '02CH'; 

8  1  DECLARE 

MON  I TORSSTACKPTR  ADORE SS; 

9  I  DECLARE 

SIGNON$MSG(»)  BYTE  DATA  (ODH.OAH, 

•  (SBC  544  MONITOR,  VI . O' .ODH.OAH, OAH, 

*  for  the  Universal  Network  I nterf ace  Dev! ce  (UNID)  II' 

ODH.OAH, OAH, 

'  17  July  1 984' , ODH.OAH, OAH, OAH, 0) ; 

10  I  DECLARE 

START$MSG(*)  BYTE  DATA  ('Start  addr  =  ’,  ODH.OAH.O). 
CHECK$SUM$ERR$MSG( * )  BYTE  DATA  ('Check  sura  error',  0DH,0AH,0) 
MEM$RW$ERR( *)  BYTE  DATA  ('Memory  R/W  error',  ODH.OAH.O); 

1 1  1  OECLARE 

CHAR  BYTE,  /"ONE  CHAR  LOCK  AHEAD"/ 

CHECKSSUM  BYTE,  /"PAPER  TAPE  CHECKSUM*/ 

I  BYTE,  /"INDEX*/ 

J  BYTE,  /"INDEX*/ 

II  ADDRESS,  /"INDEX*/ 

JJ  ADDRESS,  /"INDEX*/ 


ENDSOFF 

ADDRESS, 

/"END  OFFSET  ADDRESS*/ 

WORDJMODE 

BYTE, 

/•ADDRESS  MOOE  FLAG*/ 

LASTSCGMMAND  BYTE, 

/‘LAST 

COMHAND  SAVE*/ 

MOOE 

BYTE. 

/*R  MODE*/ 

SA/ESMOOE 

BYTE, 

/"SAVE 

MODE*/ 

BRF  ADDRESS; 

/•BAUD  RATE  FACTOR*/ 

DECLARE 

TRUE 

L 1 TERALLY 

' OFFH ' , 

FALSE 

L  1  TERALLY 

'  OOOH ' , 

MAX5DELAY 

L 1 TERALLY 

'60000' , 

/•DELAY  FOR  READ  CHAR*/ 

TAPE 

LI  TERALLY 

'  1 H ' , 

/•TAPE  MODE*/ 

SEN.  1  AL 

L 1 TERALLY 

•2H', 

/•SERIAL  MODE*/ 

PARALLEL 

L 1 TERALLY 

'  4H ' , 

/•PARALLEL  MODE*/ 

A  SCR 

L 1 TERALLY 

' ODH' , 

/♦CARRIAGE  RETURN*/ 

ASLF 

LI  TERALLY 

'OAH'  , 

/'•LINE  FEED*/ 

A  SSL 

LI TERALLY 

' 20H ' ; 

/"BLANK  OR  SPACE*/ 

1 3  I  JEiXARE 

ASCI  I (*)  BYTE  DATA  ( '0! 23456739A3CDEF ' > , 

3 1 OtCMND ( * )  BYTE  DATA  (  '  SGMDCFHRZ' ) ; 

. . . . ***«..#* 

»  I/O  DECLARATIONS  SECTION  " 

*»*•*•** . *"*/ 

14  I  OECLARE  /*  3251  USARTS  */ 
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u 


SIOSPOSCMO 

L 1 TERALLY 

1 00 1 H ' , 

r 

SERIAL  PORT  0  COMMAND  »/ 

— 

S 1 OSPOSSTAT 

L 1 TERALLY 

•ODIH', 

/* 

SERIAL  PORT  0  STATUS  */ 

S 1 OJPOSDATA 

L 1  TERALLY 

' ODOH ■ , 

/* 

SERIAL  PORT  0  DATA  V 

S 1 0$P! SCMD 

L 1 TERALLY 

'0D3H\ 

/* 

SERIAL  PORT  1  COMMAND  */ 

SI0IP1 SSTAT 

LITERALLY 

' 003H ' , 

/* 

SERIAL  PORT  1  STATUS  */ 

SI0JP1 $OATA 

L 1 TERALLY 

'0D2H' , 

/* 

SERIAL  PORT  1  DATA  V 

SI0JP2JCMD 

L 1 TERALLY 

'005H' , 

/* 

SERIAL  PORT  2  COMMAND  */ 

S 1 0$P2$STAT 

L 1 TERALLY 

1 005H ’ , 

/* 

SERIAL  PORT  2  STATUS  V 

SI0JP2JDATA 

LITERALLY 

'0D4H', 

/* 

SERIAL  PORT  2  DATA  */ 

SI0SP3SCMD 

L 1 TERALLY 

'007H', 

/* 

SERIAL  PORT  3  COMMAND  V 

SI0SP3SSTAT 

LITERALLY 

'0D7H', 

/* 

SERIAL  PORT  3  STATUS  V 

3IOSP3SQATA 

LITERALLY 

’006H', 

/* 

SERIAL  PORT  3  DATA  V 

SIOJMCOE 

L 1 TERALLY 

’04EH’, 

/* 

SERIAL  PORT  MODE  V 

S 1  OSCOMMA.NO 

L 1 TERALLY 

•027H\ 

/* 

SERIAL  PORT  COMMAND  */ 

SIOSRESErSCMD 

LITERALLY 

•4GH\ 

/* 

RESET  USART  V 

S'OSCRTSMOOE 

L 1 TERALLY 

1 4EH 1 , 

/* 

CRT  MODE  */ 

SIOSTTY 5M0DE 

L  1  TERALL  Y 

'OCFH\ 

/* 

TTY  MODE  V 

S i OSDTRSGN 

L 1 TERALLY 

'27h\ 

/* 

RTS,RXE,DTR,TXE  V 

SIOSCRTSCMD 

LITERALLY 

’37rt', 

/* 

RTS.ER.RXE^TR.TXE  */ 

S 1 0$TTY$CM0 

L 1 TERALLY 

' 35H' , 

/* 

RTS,ER,RXE,TXE  */ 

S ! OSOTRSOFF 

LITERALLY 

'25H\ 

/* 

RTS,RXE,TXE  */ 

SIOJR.XRCY 

L  1  TE  RALLY 

'02H', 

/* 

RECIEVER  READY  V 

S'CSTXE 

LITERALLY 

1 04h ' , 

/* 

TRANSMITTER  E.MPTY  ♦/ 

SIOSTXRDY 

L  1  TERALLY 

'01 H' , 

/* 

TRANSMITTER  READY  »/ 

PAR  1 TYSMASK 

LI  TERALLY 

'  J'r'H ' ; 

/* 

MASK  OFF  PARITY  SIT  V 

•  < 

1 5  1  DECLARE 

/*  8253  INTERVAL  TITER  V 

ITPSCONT 

LITERALLY 

'ODBH', 

/*  INTERVAL  TI.MER  1  CONTROL  V 

1  T1  SCNTRO 

L 1 TERALLY 

'0D8H', 

/*  COUNTER  0,  USART  0  V 

1 T 1 SCNTR1 

LI  TERALLY 

' 0D9H ' , 

/*  COUNTER  1 ,  USART  1  V 

■ 

IT1 5CNTR2 

L 1 TERALLY 

' ODAH  * , 

/*  COUNTER  2,  US, ART  2  V 

1 T2SCCNT 

LITERALLY 

' ODFH' , 

/*  INTERVAL  TI.'CR  2  CONTROL  V 

I T2JCNTR0 

L 1 TERALLY 

1 ODCH ' , 

/*  COUNTER  3,  USART  3  V 

1 T2JCNTRI 

LI  teral.y 

'ODOH', 

/'  COUNTER  4,  CNTR5  OR  SPLIT  CLOCKS  V 

1  T2JCNTR2 

L 1 TERALLY 

'OCEH', 

/*  COUNTER  5,  RST  7.5  V 

USART  JCNTR 

JM3  LITERALLY  '936N' 

,/*  DIVIDE  3Y  N  RATE  GENERATOR,  MODE  3,V 

► 

/* 

FOR  USART  CLK  x  16,  CLK  *  1.2233  MHZ  V 

: 

■ 

319203 

LI  TERAU.Y 

/*  TlMER  VALUE  FOR  19.2  KBPS  V 

■  « 

133600 

L : TERALLY 

'S', 

/»  TINER  VALUE  FOR  9600  BPS  V 

B4SOO 

LI  TERALLY 

•:6\ 

/*  TIMER  VALUE  FOR  4300  BPS  V 

•  /  * 

32400 

LI TERALLY 

•32', 

/*  TI'ER  V*LUE  FOR  2400  BPS  V 

P 

31  200 

LITERALLY 

'64', 

/*  TIMER  VALUE  FOR  1200  BPS  V 

. 

2600 

L 1 TERALLY 

'123', 

/*  TITER  VALUE  FOR  SCO  BPS  »/ 

B300 

LITERALLY 

'256', 

/"  TIMER  VALUE  FOR  300  3P5  V 

3150 

L 1 TERALLY 

'512', 

/*  TI’€R  VALUE  FOR  150  BPS  V 

81  10 

Ll  TERALLY 

'698'; 

/*  TIMER  VALUE  FOR  1)0  BPS  V 

P 

1 6  1  DECLARE 

* 

CD 

07 

PERIPHERAL  INTERFACE"/ 

PlIPORTA 

LI  TERALLY 

' 0F9H ' , 

/*  PORT  A  (OUTPUT)  ♦/ 
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■“h.  * 


PL/M-80  CONPILER 


I  SBC  544  MONITOR  TEST,  1900  HRS  17  JULY  1984 


PIIPORTB  LITERALLY  'OEAH',  /*  PORT  B  (INPUT)  */ 

PUPORTC  LITERALLY  1 OEBH ' ,  /*  PORT  C  (INPUT)  V 

PISSTAT  LITERALLY  '0E8H',  /*  PPI  STATUS  */ 

PISCMD  LITERALLY  '0E8H',  /*  PPI  COMMAND  */ 

P I $CNTR$LO  LITERALLY  'OECH',  /*  PPI  COUNTER  LO  BYTE  */ 

P I SCNTRSH I  LITERALLY  ' OEDH' ,  /*  PPI  COUNTER  HI  BYTE  V 

PI  $CNTR$LOCNT  LITERALLY  '16384',  /*  PPI  COUNTER  TIME  CONST  */ 
PISCNTRSHICNT  LITERALLY  '75',  /*  PPI  COUNTER  Tl*€  CONST  */ 

P I  $  I N I TJCMDI  LITERALLY  '041H',  /*  PPI  INITIALIZATION  COMMAND  1  */ 

/*  A  OUT,  B  4  C  IN,  STOP  COUNT  V 

°  I  $  I N I  TSCMD2  LITERALLY  '0C1H',  /*  PPI  INITIALIZATION  COMMAND  2  */ 

/*  A  OUT,  B  4  C  IN,  STA.RT  COUNT  */ 
P I  $  I  Ml T$SIOS INTI  LITERALLY  'OFOH',  /*  USART  AND  INT  CONT  RESET  */ 

P I  $  I N I TiS I C$ I NT2  LITERALLY  'OCOH',  /*  USART  AND  INT  CONT  NORMAL  */ 

PI $PORTC$STAT  LITERALLY  'OCCH',  /*PORT  C  STATUS*/ 

PltPORTCSCTL  LITERALLY  'OCEH',  /’PORT  C  CONTROL*/ 


°  1 SM2M1 

L!  TERALLY 

•0C6H', 

/•A-MOOE  1,  3-M00E  2*/ 

PlSOBF 

L 1 TERALLY 

•080H’ , 

/♦OUTPUT  BUFFER  READY*/ 

'  * 

P 1 S 1 8F 

LI  TERALLY 

'02H' ; 

/•INPUT  BUFFER  READY'*/ 

DECLARE 

1C SPORT A 

LITERALLY 

/*8259 

'0E6H', 

INTERRUPT  CONTROLLER*/ 

/*  PORT  A  V 

llL 

1 CSP0RT3 

ICSICA1 

L  1  TERALLY 

L  1  TERALLY 

'0E7H' , 
'PH', 

/*  PORT  B  */ 

/*  INIT  COMMAND  ADDRESS 

1  */ 

“1 

ICJICW2 

L 1 TERALLY 

' OOH ' , 

/*  INIT  COMMAND  ADDRESS 

2  */ 

•  „ 

ICJICW3 

LITERALLY 

'OOH', 

/*  INIT  COMMAND  ADDRESS 

3  */ 

ICSICW4 

L  1  TERALLY 

' 1 Dh ' , 

/*  IN (T  COMMAND  ADDRESS 

4  V 

ICSMASK 

L 1 TERALLY 

'OFFH' , 

/*  INTERRUPT  MASK,  DCW1 

V 

ICSEOI 

L 1 TERALLY 

' 20H ' , 

/*  END  OF  INTERRUPT  CMD, 

OCW'2  V 

ICS0CW3 

LI TERALLY 

'OSH'; 

/*  READ  INTERRUPT  LEVEL, 

0CW3  */ 

/#*#*#*#♦*************##♦**  ****** 

*  RES  IS  IER  ASSIGNMENTS  * 

. . . 

18  !  DECLARE 

CS  ADCF.ESS, 

IP  ADDRESS; 

/ . ******** 

*  MEMORY  ARGUMENT  SECTION  * 

*  ♦•••♦•in*#****-**************-*/ 

19  I  DECLARE 

MEM0RYS4RGI 5DTR  ADDRESS,  /*ARGUN€NT  1*/ 

ARC  STRUCTURE  (OFF  ADDRESS,  SEC  ADDRESS) 

AT  ( . MEMORY IARG1  SPTR ) , 

MEMORY JAR G1  BASED  MEMORY  SARG1  SPTR  BYTE, 

ME MOR Y t ADORE S S $ ARG !  BASED  MEM0RYSARG1 SPTR  ADORESS, 


H  -  15  2 


PL/M-80  CONPILER 


I  SBC  344  MONITOR  TEST,  1900  HRS  17  JULY  1984 


MEMORY 3 ARG2SPTR  ADDRESS,  /‘ARGUMENT  2V 

ARG2  STRUCTURE  (OFF  ADDRESS,  SEG  ADORESS) 

AT  (.MEM0RYSARG2JPTR), 

MEMORY SARG2  BASED  NEM0RYSARG2SPTR  BYTE, 

MEMORY  $ARG3$PTR  ADORESS,  /‘ARGUMENT3*/ 

ARG3  STRUCTURE  (OFF  ADORESS,  SEG  ADDRESS) 

AT  (. MEMORY JARG3JPTR), 

MEM0RY$ARG3  BASED  MEM0RYtARG3$PTR  BYTE, 

MEMORYSCS I PJPTR  ADDRESS,  /*CS  &  IP  ADDRESS*/ 

CSIP  STRUCTURE  (OFF  ADDRESS,  SEG  ADDRESS) 

AT  ( . MEMORY tCS I P$PTR), 

MEMORYSCSIP  8ASED  MEMORY  SCSI  PSP TR  BYTE, 

MEMORYtUSERSTACKtPTR  ADDRESS, 

USERS  TACK  STRUCTURE  (OFF  ADORESS,  SEG  ADDRESS) 

AT  (.MEMORYtUSERSTACKSPTR), 

MEMORY$USERSTACK  BASED  "EMORYJUSERSTACKSPTR  ADDRESS; 


/**#*#*****♦**♦*»***#****»**#♦ 

*  REGISTER  SECTION  » 

»•»»»»»****»•***»»«•***••»»*»  f 


COMMON  PROCEDURES 


THIS  MODULE  CONTAINS  THOSE  LOWER  LEVEL  PROCEDURES  CALLED  3Y  HIGHER 
LEVEL  ROUTINES. 

MODULE  ORGAN  I ZA T i ON 

THIS  MODULE  IS  DIVIDED  INTO  4  SECTIONS  AS  FOLLOWS: 

1 . BASIC  I/O  SECTION 

S  1  Of CHAR JRDY  INPUT  CHARACTER  READY 

SIOSCHECK$CONTROL$CHAR  CHECK  FOR  CONTROL  CHARACTER 
S I DSOUTtCHAR  OUTPUT  .CHARACTER 

S !  03GETJCHAR  1  NPUT  A  CHARACTER 

SI DtCUTJB'TE  OUTPUT  A  BYTE  IN  HEX 

S I  C50JT33YTE$4.DDRE3S  OUTPUT  ByTE  AT  ADDRESS 
S 1 0 SCUTS WORD  OUTPUT  A  ADDRESS  IN  HEX 

SI CSCUTSBLANK  OUTPUT  A  SINGLE  BLANK 

S  I  OSOUTSSTR  I  NG  OUTPUT  A  STRING 

2.  UTILITY  ROUTINES  SECTION 

S I 0$VAL I QJHEX  TEST  FOR  VALID  HEX  CHAR 

SICJHEX  CONVERT  TO  HEX  FROM  ASCI  I 

SI OJVAL IDSREGSF I RST  TEST  FOR  VALID  REGISTER  FIRST  CHAR 
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SI OSVAL I DSREG  TEST  FOR  VALID  REGISTER  NAME 

SIOSCRLF  OUTPUTS  A  CR  AND  LF 

S I OSTE S  TSWORDSMOOE  TEST  FOR  A  'W  IN  COMMAND 
SI0SSCANS8LANK  SCANS  FOR  OPTIONAL  BLANK 

SI  OSSECONDSDELAY  DELAY  ONE  SECOND 

S I OSMSSDELAY  DELAY  N  MS 

3.  ARGUMENT  EXPRESSION  EVALUATION  SECTION 

SIOSGETSWORD  GET  A  WORD  EXPRESSION 

SI OSGETSADDR  GET  AN  ADORESS  EXPRESSION 

S I OSUPDATES I P  OPTIONAL  UPDATE  OF  CS:IP 

4.  DEVICE  INITIALIZATION  SECTION 

S I OSRESETSCMDSUSART  RESET  3251 A 

SIOJINI TSMODE  INITIALIZE  FOR  LOAD/TRANSFER 

5.  PAPER  TAPE,  SER I AL, PARALLEL  READ  SECTION 

S I OSREADSCHAR  READ  CHAR  FROM  TTY  READER 

SIOSREAO  BYTE  READ  A  BYTE 

S I OSREACSWORD  REAO  AN  ADDRESS 

S I OSREADJHEXJF I LE  INPUT  HEX  FILE 

6. INTERRUPT  AND  RESTORE/EXECUTE  ROUTINES 


*• 


SAVESREG I STERS 
RESTORESEXECUTE 
INTERRUPT!  SENTRY 
I NTERRUPT3SENTRY 
I NTERRUPT32SENTRY 
I N I T$ I NTSVECTOR 

»/ 

/**%+**** *#»###**«  4**** 

*  SASIC  I  '0  SECTION  * 

*♦***********»********/ 


SAVES  USER  REGISTERS 
RESTORE  MACHINE  STATE  AND  EXEC 
INTERRUPT  ROUTINE  FOR  SINGLE  STEP 
INTERRUPT  ROUTINE  FOR  GO 
INTERRUPT  ROUTINE  FOR  8259A 
INITIALIZES  INTERRUPT  VECTORS 


20  1  SIOSCHARSRDY: 

/•TESTS  FOR  INPUT  CHARACTER  PENDING  BY  READING  THE  STATUS  PORT 
AND  MASKING  WITH  S I OSRXRDY (READ  DATA  READY.)  RETURNS  TRUE  |P 
MOT  £,\PTY(CHAR  PENDING)  AND  FALSE  IF  NO  CHAR  PENDING*/ 

PROCEDURE  BYTE; 

2  IF  ( INPUT(SIOSPOSSTAT)  AND  SIOSRXRDY)  =  0  THEN  RETURN  F4LSE; 

2  RETURN  TRUE; 

2  END  SIOSCHARSRDY; 


21 

23 

24 


25  1  S I OSCHECKSCONTROLSCHAR : 

/♦THIS  ROUTINE  CHECKS  IF  A  CONTROL  CHARACTER  HAS  BEEN  INPUT  TO 
TUE  SERIAL  I/O  PORT .  AFTER  A  CONTROL-S  IT  WAITS  FOR  A  CONTROL -Q 
3EF0PE  RETURNING  TO  THE  CALLER.  A  CONTROL-C  CAUSES  A  JUNP  TO  THE 
ERROR  ROUTINE*/ 


23  2 

27  2 

2H  2 
29  3 


PROCEDURE ; 

char  =  INPUTCSI OSPOSDATa)  »N0  07FH; 

IF  CHAR  =  1  5H  THEN  /‘CONTROL-S*/ 

DO  WHILE  CHAR  <>  11H;  /'CONTROL -<}?*/ 

IF  SIOSCHARSRDY  THEN 
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CHAR  =  I NPUT ( S IOSPOSDATA)  AND  07FH; 

IF  CHAR  =  03H  THEN  GOTO  ERROR; 

END; 

END; 

ELSE  IF  CH.AR  =  03H  THEN  GOTO  ERROR; 

END  SIO$CHECK$CONTROL$CHAR; 

S I OSOUTSCHAR : 

/*TH I S  ROUTINE  OUTPUTS  THE  INPUT  PARAMETER  TO  THE  USART 
OUTPUT  PORT  WHEN  USART  IS  ^ADY  FOR  OUTPUT  t XVI I T  SUFFER 
EMPTY ) . »/ 

PRGCEOURE(C) ; 

DECLARE  C  BYTE; 

LOOP:  IF  S I OSCHARSRDY  THEN  CALL  SIOSCHECKSCONTROLSCHAR; 

IF  (INPUT(S:9$P0JSTAT)  ANO  S10STXRDY)  =  0  THEN  GOTO  LOOP; 
OUTPUTt  S I  OJ.'vJDATA)  =  C; 

END  S I OSOUTSCHAR; 


SIOSGETSCHAR: 

/‘THIS  ROUTINE  INPUTS  A  CHARACTER  FROM  THE  INPUT  PORT  AND  RETURNS 
WITH  IT  IN  THE  GLOBAL  ’CHAR'.  THE  CHARACTER  IS  ECHOED  TO  THE 
OUTPUT  PORT  IF  PRINTABLE.*/ 

PROCEDURE; 

CO  WHILE  (INPUTtSIOSPOSSTAT)  AND  SIOSRXRDY)  *  0;  END; 

CHAR  =  INPUT(Si 0$P0$DATA)  AND  07FH; 

IF  CH.AR > -ASBL  THEN  CALL  S I  OSOUTSCHAR (CHAR  ) ; 

END  3I0SGE  TSCrlAR; 


SI0S0UTS3YTE: 

/♦THIS  ROUTINE  OUTPUTS  THE  SINGLE  INPUT  PARAMETER  TO  THE  USART 
!N  ASCII  HEXADECIMAL  FORMAT.*/ 

PROCEDURE <3); 

DECLARE  3  BYTE; 

CALL  SI OSCUTSCHARCASCI I (SHR(B,4)  AND  OFH) ) ; 

CALu  S I OSOUTSCHAR! ASCI  I (3  AND  OFH)); 

END  SIOS 0UTS3YTE; 

SI OtOUTSBYTEtPTR: 

/♦THIS  ROUTINE  OUTPUTS  THE  3YTE  3ASED  ON  THE  INPUT  PARAMETER  TO  THE 
USART  IN  ASCII  HEXADECIMAL  FORMAT.  »/ 

PROCEDURE  (BSPTR); 

DECLARE  BSPTR  ADDRESS,  3  BASED  BSPTR  BYTE,  X  BYTE; 

A  =  S; 

CALL  SI OSOUTSBYTE(X) ; 

END  3 1 OSOU  TS3Y  TE5PTR ; 

S  10$  OUTS  WORD: 

/*  THIS  ROUTINE  OUTPUTS  rHE  INPUT  PARAMETER  AS  4  ASCII  HEXADECIMAL 
CHARACTERS  T9  DTE  USART  OUTPUT  PORT.*/ 


H 
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65  2 

66  2 

67  2 

68  2 

69  I 


70  2 

71  2 

72  1 


73  2 

74  2 

75  2 

76  3 

77  3 

73  3 

79  2 


80 


31  2 

32  2 

33  3 

85  3 

36  2 

37  2 

39  1 


39  2 

90  2 

92  2 

73  2 

•4  1 


PROCEDURE  CM); 

DECLARE  W  ADORE SS; 

CALL  S I 0$0UT$BYT£(H I GH (W) ) ; 

CALL  SI OSOUTSBYTE (LOW(W )  1 ; 

END  SIOSOUTSWORD; 

SIO$OUT$BLANK: 

/♦THIS  ROUTINE  OUTPUTS  ONE  BLANK.  */ 

PROCEDURE ; 

CALL  S I OSOUT$CHAR(ASBL ) ; 

END  S I 0$0UT$3LANK; 

S I OtOUTISTR I NG: 

/*  OUTPUTS  A  STRING  POINTED  TO  8Y  THE  FiRST  HARM.  */ 
PROCEDURE (PTR); 

DECLARE  PTR  ADDRESS,  3TR  3ASED  PTR  ( 1  )  BYTE; 

I  =  0; 

DO  WHILE  STR( I )<>0; 

CALL  SIO$OUT$CHAR(STR( I ) ) ; 

I  =  I  +  1 ; 

END; 

END  SIOSO'JTSSTRING; 


/»»**»*♦*♦♦«  »*»»*»»**  *«■*»»* 

*  UTILITY  ROUTINES  SECTION* 

»»»■»****»**»***»»********  / 


3IOJVALIOJHEX; 

/♦THIS  ROUTINE  TESTS  I  •  THE  INPUT  PARAM  IS  A  VALID  ASCII  -’L<  0131 
AND  RETURNS  TRUE  AS  THE  VALUE  OR  THE  PROCEDURE  IP  SO  AND  FALSE 
IF  NOT.*/ 

PROCEDURE  (Hv  3YTE; 

DECLARE  H  3YTE; 

CO  I  =  0  TO  LASTCASCI I ); 

IF  H=ASCi 1(1)  THEN  RETURN  TRUE; 

END; 

RETURN  FALSE; 

END  SIOSVALiOHEX; 


SIOSHEa: 

/♦THIS  ROUTINE  CONVERTS  THE  INPUT  HARM  FROM  ASCII  TO  ITS  3: NARY 
EQUIVALENT  AND  RETURNS  IT  AS  THE  VALUE  CF  THE  PROCEDURE.  NO  CHECK 
IS  MADE  FOR  INPUT  VALIDITY.*/ 

PROCEDURE (C)  AOD'RESS; 

DECLARE  C  BYTE; 

IF  C<-'9’  THEN  RETURN  DOUBLE YC-30H) ; 

ELSE  RETURN  DOUBLE (C-37H); 

END  SIOJHEX; 

3 1 OSCRLF ; 

/*  THIS  ROUTINE  OUTPUTS  A  CR  AND  Lr  TO  THHt  OUTPUT  PORT.*/ 
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PROCEDURE; 


95 

2 

CALL  SI  OSOUTSCHAR  ( ASCR ) ; 

96 

2 

CALL  S 1 OSOUT$CHAR$ ( ASLF ) ; 

97 

2 

END  SIOJCRLF; 

98 

1 

SIOJTESTSWORDSMODE: 

/»  THIS  PROCEDURE  TESTS  FOR  A  *W'  FOLLOWING  THE  COMMAND  AND  IF  SO 
SETS  THE  FLAG  ’WCRDSMOOE  TO  TRUE  OR  FALSE  OTHERWISE.  SCANS  OFF 
OPTIONAL  BLANK  FOLLOWING  COMMAND.  */ 

PROCEDURE; 


99 

2 

WORDSMODE  =  FALSE; 

'.00 

2 

CALL  SIOSGETSCHAR; 

191 

2 

IF  CHAR  =  'W'  THEN 

II  -  15  7 
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102 

2 

DO; 

103 

3 

WORDSMOOE  »  TRUE; 

104 

3 

CALL  SI OSGETSCHAR; 

105 

3 

END; 

196 

2 

IF  CHAR  =  ASBL  THEN 

107 

2 

CALL  SI OSGETSCHAR; 

108 

2 

END  SIOSTESTSWORDSMODE; 

109 

1 

SI OSSCANSBLANK : 

/•THIS  ROUTINE  IS  CALLED  AFTER  A  COMMAND  LETTER  TO  SCAN  OFF  THE 
OPTIONAL  BLANK.*/ 

PROCEDURE; 

110  2  CALL  S I OSGETSCHAR; 

1112  IF  CHAR  =  ASBL  THEN 

112  2  CALL  SI OSGETSCHAR; 

113  2  END  S I 0SSCANS8LANK; 

114  1  S I 0$SECCN0$DELAY : 

/♦THIS  ROUTINE  CAUSES  A  DELAY  OF  APPROXIMATELY  1  SECOND.*/ 
PROCEDURE; 

115  2  DECLARE  II  ADDRESS; 

116  2  DO  I  I  =1  TO  OFOOOH;  END; 

113  2  END  S I OSSECONDSDELAY; 

119  1  S I OSMSiDELAY : 

/♦THIS  ROUTINE  CAUSES  A  DELAY  OF  1  OR  MORE  MILLISECONDS;  THE  NUMBER 
iS  PASSEO  BY  THE  CALLER.  THE  DELAY  IS  APPROXIMATE.*/ 

PROCEDURE  (N); 

120  2  DECL.ARE  <N,I,J)  8YTE ; 

121  2  DO  I  =  1  TO  N; 

122  3  DO  J  =  1  TO  55;  END; 

124  3  END; 

125  2  END  SIOSMSSOELAY; 


. . **** . ***** 

*  ARGUMENT  EXPRESSION  EVALUATION  SECTION  * 

4 4# 4444444 444 44 4 4444444444444444444444444444/ 

126  1  S I  OSGETSWCRO : 

/♦THIS  ROUTINE  READS  CHARS  FROM  THE  INPUT  PORT  AND  EVALUATES 
AN  EXPRESSION  CONSISTING  OF  ’  *■-'  AND  OPERANDS  OF  HEX  NUMBERS 
AND  REGISTER  NAMES.*/ 

PROCEDURE  ADDRESS; 

127  2  DECLARE  (SAVE ,W)  ADCRESS,  (OPER,T>  BYTE; 

1  13  2  GPER  = 

129  2  W  =  0; 

1 30  J  00  WHILE  TRUE; 


H 
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131  3 

132  3 

133  3 

135  3 

136  4 

137  4 

138  4 

139  3 

140  3 

141  3 

142  3 

’43  3 

144  3 

145  3 

146  3 

147  3 

1 48  3 

149  2 


T  =  CHAR; 

SAVE  =  0; 

IF  NOT (S I 0$VAL I DSHEX(T) )  THEN  GOTO  ERROR; 

00  WHILE  S I OSVAL I D$HEX(CHAR ) ; 

SAVE  =  SHL(SAVE,4)  +  SIOSHEX(CHAR); 

CALL  SIOSGETSCHAR; 

END; 

EVAL:  IF  OPER  =  '+'  THEN 

W  =  W  +  SAVE; 

ELSE 

W  =  W  -  SAVE; 

I F  CHAR  =  ASCR  CR  CHAR  =  ’  : '  OR  CHAR  =  ' ,  '  THEN 
RETURN  W; 

IF  CHAR  =  '+'  OR  CHAR  =  THEN 
OPER  =  CHAR; 

ELSE 

GOTO  ERROR; 

CALL  S I OSGETSCH.AR; 

END; 

END  S I  OSGETSWORD; 


ISO  1 


151  2 

152  2 

153  2 

154  2 

1 55  2 

156  5 

157  3 

,c8  3 

1 39  3 

161  3 

162  2 


SiOJGETSADDR: 

/*  THIS  ROUTINE  ACCEPTS  A  VALID  ADDRESS  EXPRESSION  CONSISTING 
OF  AN  OPTIONAL  <S£G> :  AND  AN  DISPLACEMENT.  */ 

PROCEDURE (PTR, DEFAULTSBASE ) ; 

DECLARE  PTR  AOORESS,  OEFAULTSBASE  ADDRESS, 

AR9  BASED  PTR  STRUCTURE  (OFF  ADDRESS,  SEG  ADDRESS); 
ARG.SEG  =  OEFAULTSBASE; 

ARC. OFF  =  S 1 0$  GET  SWORD ; 

IF  CHAR  THEN 

DO; 

CALL  SIOSGETtCHAR; 

ARG.SEG  =  ARG.OFF; 

A.R3.0FF  =  S I OSGE  TSWCRD; 

IF  CHAR  =  THEN  GOTO  ERROR; 

END; 

END  SIOSGETSADOR; 


163  1  SI0SGETS3YTS: 

/*  THIS  PROCEDURE  IS  CALLED  TO  INPUT  HEX  CHARACTERS  FROM  THE 
INPUT  US. ART  .AND  RETURN  WITH  THE  BINARY  VALUE  »/ 

PROCEDURE  BYTE; 

164  2  DECLARE  SAVE  BYTE; 


165  2  SAVE  =  0; 

166  2  CALL  SIOSGETSCHAR; 

167  2  IF  NOT  (SIOSVALIDSHEX(CHAR) )  THEN  GOTO  ERPOR ; 

169  2  DO  WHILE  S I OSVAL 1  DIHEX (CHAR ) ; 

WO  3  SAVE  =  3HL  ( SAVE,  4 )  f  SIOSHEX(CHAR) ; 

17!  3  CALL  SIOSGETSCH-'R; 

1  72  3  END; 


1 


1 


4 


Vi  C  wl 
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173  2  RETURN  SAVE; 

174  2  END  $1 OSGETSBYTE ; 

175  1  S I OSUP0ATES IP; 

/*TH I S  PROCEDURE  IS  CALLED  BY  'GO'  TO  OUTPUT  THE 

CURRENT  IP  AND  INSTRUCTION  3YTE  AND  OPEN  THE  IP  FOR  INPUT.*/ 

PROCEDURE; 

175  2  CALL  S I OSOUTSBLANK; 

177  2  CALL  SIO$OUTSWORD( IP); 

1 73  2  CSiP.SEG  =  CS; 

179  2  CSIP.CFF  =  IP; 

130  2  CALL  S I OSOUTSCHARC ; 

1 31  2  CALL  SI OSOUTSBLANK; 

132  2  CALL  S!0S0UTS3YTESPTR(MEM0RYSCSIPSPTR); 

135  2  CALL  S I 0S0UTS3LANK; 

134  2  CALL  S I GSGETSCHAR; 

135  2  IF  CH.ARo','  AND  CHARoASCR  THEN  CALL  SIGSSETS ADDRt  .CS  I  P,CS) 

137  2  END  SIOSUPOATESlP; 

/*#**>*#******♦*#**•****-•**■****##***# 

*  DEVICE  INITIALIZATION  SECTION  * 

138  1  I N I T I AL i ZESBOARD : 

/*  THIS  PROCEDURE  INITIALIZES  THE  1S8C  544  BOARD  V 
PROCEDURE ; 

1 39  :  PI  I  INI T:  /*  8155  PARALLEL  INTERFACE  INI Tl AL 1 2ATI0N  »/ 

OUTPUT (°|  JCMD)  -=  =»  i  S  I  N I  TSCM01  ; 

130  0  OUTPUT! P I SPORTA)  =  P I  $  I N I T$S I  OS  INTI ; 

191  2  CALL  S I OSMSSDELAY (100); 

192  2  OUTPUT (P | JPCRTA)  =  PI  $  INI TSSIOS INT2; 

193  2  CALL  SI OSMSSDELAY (100); 

194  2  OUTPUT  (PI  SCNTRSLO)  =  ?  I  SCNTRSLOCNT; 

195  2  OUTPUT (P| SCNTRSH I )  =  PI SCNTRSH ICNT; 

•56  2  OUTPO. (PISCMD)  =  Pill  Ml TSCVD2; 

197  2  USSINIT:  /»  INITIALIZE  THE  USARTS  V 

0U'P!JT(SIC$P0S>C>  =  SI0$mO0E; 

■98  2  CJTPUT(SI OSPOSCMD)  =  SIOSCOMMAND; 

199  2  OUTPUT ( S I OSP! SC'C )  =  SIOSMODE; 

200  2  OJTPUTfSICS31 JCMD'  *  3 1 0 SCCMMAND ; 

291  2  DU  PUT!  S !  OSP2SCVO)  =  SI  OS  MODE; 

202  2  Ou CPU T ( S I OSP2SOMD)  »  SIOJCOWMAND; 

203  2  OUTPU  T  ( S 1 0SP3SCM) )  =  SIOSMODE; 

2C4  2  OUTPU  r:s;0SP3SC€)  =  SIOSCCMMAND; 

205  2  ITSINIT:  /*  3253  INTERVAL  TIMER  INITIALIZATION  V 

OU  TPU  T  ( I  r  I  SCON  T )  -  U  3AR  TJON  TP  SM3  ; 

2C6  2  OUTPUT!  I T1SCNTR0)  =  L0W(:3RF>; 

20)  2  OUTPUT:  I  Tl  S  INTRO)  =  HI2-H(3RF); 
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303  2 

209  2 

210  2 

2’  I  2 
212  2 
2' 3  2 

214  2 

215  2 


217  2 


OUTPUTt  IT1  SCONT)  =  40H  OR  USARTSCNTRSM3; 

OUTPUT ( I T 1 SCNTRl )  =  LOW(BRF); 

CUTP'JTt  I  T1 SCNTRl  )  =  HIGH(BRF); 

OUTPUTt  I  mCONT)  =  30H  OR  USARTSCNTRSM3; 

OUTPUTt I T1 $CNTR2)  =L0W(9RF); 

OUTPUTt  IT!  1CNTR2)  =  HIGHORF); 

OUTPUTt I T2SCONT)  =  USARTSCNTRSM3; 

OUTPUTt I T2 SON TRO)  =L0Wt3RF); 

OUTPUTt I T2JCNTRO)  =  HIGHtBRF); 

ICS  IN  IT:  /*  8259  INTERRUPT  CONTROLLER  INITIALIZATION  V 


/’THE  FOLLOWING  CODE  INITIALIZES  THE  8259A.  THE  INTERRUPTS  ARE  NOT 
USED  FOR  THIS  MONITOR.  ALL  INTERRUPTS  ARE  SET  MASKED.  V 


213  2 

2!  ?  2 
220  2 
221  2 
222  2 
223  2 


OUTPUTt  I  :  SPORT  A) 
OUTPUT;  1CSP0RT3) 
OUTPUTt I CSP0RT3) 
OUTPUTt  ICSP0RT3) 
CUTP'JTt  I CSP9R TB) 
OJPPUTt  ICSPORTA) 
OUTPUTt  I CSPORTA) 


ICSICW1  ; 

ICSICW2; 

ICSICW3; 

ICSICW4; 

I C5MA8K; 

ICSEOI ; 

I2SOGW3; 


/»  INITIALIZE  INTERRUPT  VECTORS  V 
/*  l'ALu  INI  TS  I  N TS VECTOR ( .  I N TSVECTORi  1  ),.  INTERRUPT]  SENTRY) ; 

CALL  I  N I  T$  '  NTS  VECTORt .  I  NTSVECTCRt  2  > , .  I  NTERRUPT3  SENTRY ) ; 

CAlL  INI  TS  I N  TSVECTCRt .  I  NTSVECrr)R(3) , .  I  NTERRUPT3SEN  TRY  ) ; 

00  I  *  32  TO  39; 

CALL  I  NiTS  'NTSVECTCRt.  I  NTS  VECTOR  (  I  ),.  .'  NrERRUPT32SENTRY  >  ; 

END; 

*/ 

/*  i NT3SP7R  =  I NTSVECTCRt 3);  SAVE  VECTOR  3  V 


221  2  END  INITIAL.  -.ESBOAFD; 


225 

2  23 

22  9 
220 

23  I 


2 .5  3 


5 1 OSRE  3ETSP0SC.MD: 

t*  h;s  -=OCEDLRE  RESETS  THE  8251  A  US  ART  FOR  PORT  0  V 
PROCEDURE- 

■\  T°U  Tt  S  i  OSPOSC'-C  )  =  SIOS'-'C'CE; 

CHAR  =  0;  /’DELAY*/ 

OUTPUT;  SIOSPOSO’D)  *  SICS.RECerSCVC; 

OAR  =  2;  /*  DEL  A  a  */ 

Cu  TP 2  T  (  S I  2'SPOS  27WD  )  *  SIOSMOOE; 

':-\.R  =  0;  /’'.FLAY*/ 

JuTP'JTt  SI  CS-'CSC'-t))  =  SIOSCO’WND; 

END  SI')  SRE  SE  TiF  9  J  2"0  ; 


/*  INI  Ti  ALICES  T  •£  PORT  J  J  -  ART  OAT*  RATE  TO  -SHF  ’/ 
PROCEDURE ; 

AlL  S’  :SPESETSP0*2M'; 
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236 

237 
233 


OUTPUT ( I  T1  SCONT)  =  USARTSCNTRSM3; 
OUTPUT (  I  TUCNTRO)  =LOW(BRF); 
OUTP’J  T(  I  T1  SCNTRO)  =  HIGH! SRF ) ; 


239 


END  S I  OSIN  ITS, MODE; 


p  ***♦#**♦♦+****♦«■**♦»■♦************  ********* 

*  PAPER  TAPE,  SERIAL,  PARALLEL  READ  SECTION* 

»*«•**■******#  ♦**»**♦***»#**#»*»****#««*•»*#**  / 


240  1  S I OSREADSCHAR : 

/*TH I S  PROCEDURE  READS  A  CHARACTER  FROM  PORT  0  USART.  */ 
PROCEDURE  BYTE; 


241 

2 

DECLARE  1 1  ADDRESS; 

242 

2 

LOOP: 

DO  ! 1  =  1  TO  MAXSOELAY; 

243 

3 

IF  S 1 OSCHARSRDY  THEN  GOTO 

245 

3 

END; 

246 

2 

GOTO  ERROR; 

247 

2 

READY; 

CALL  SI CS CHECKS CONTROLSCHAR; 

243 

2 

IF  CHAR  =  1  1 H  THEN  GOTO  LOOP 

250 

2 

RETURN  CHAR; 

251 

2 

END  SI OSREADSCHAR; 

252 

1 

SI0SRHADS3YTE; 

'53 

254 

255 

256 
25  7 
253 


/*  THIS  ROUTINE  READS  TWO  HEX  BYTES  AND  RETURNS  THEIR  BINARY 
BYTE  VALUE.  V 
PROCEDURE  BYTE; 

DECLARE  T  BYTE; 

r  =  LOW  ( S I OSHEX  ( S I  OSREADSCHAR ) ) ; 

T  =  SHUT,  4)  f  LOW(SI OSHEXCS I  OSREADSCHAR) ) ; 

CHECKSSUM  =  CHECKSSUM  +  T; 

RETURN  T; 

END  SI0SREA0S3YTE; 


259  1  3 1 OSREADSWCRO : 

/*  THIS  ROUTINE  READS  FOUR  HEX  3YTE3  AND  RETURNS  THEIR  BINARY 
ADDRESS  VALUE.  V 
PROCEDURE  ADDRESS; 

260  2  DECLARE  T  3YTE; 

261  2  T  =  S I OSREAO J3YTE; 

262  2  RETURN  SHL tDOUBLE(T) ,3)  +  DOUBLE (S! OSREADSBYTE ) ; 

263  2  END  S I CSREADS WORD ; 


264 


S I OSRE AD SHE X$F I LE: 

/*  THIS  ROUTINE  IS  CALLED  BY  THE  READ  COMMAND  TO 
READ  A  HEX  FILE.  V 
PROCEDURE; 

DECLARE  (RECSTYPE.LEN, I ,T)  3YTE,  OFFSET  ADDRESS; 


H  -  152 


PL/M-80  COFffMLER 


I  SBC  544  MONITOR  TEST,  1900  HRS  17  JULY  1984 


266  2 

267  2 

268  2 

269  2 

270  2 

272  2 

2  73  2 

275  2 

276  2 

277  2 

273  2 

2  79  2 

230  2 

231  2 

232  3 

283  3 

■84  3 

285  2 

236 

73  7  2 

283  3 

?S9  2 

290  z 

291  2 

292  3 

293  5 

294  3 

295  3 

296  4 

297  l 

253  4 

259  4 

300  5 

501  3 

302  2 

39  3  2 

304  2 

305  3 

396  3 

307  .1 

703  2 

310  2 

311  2 

312  2 

513  2 


IF  CHAR  <>  A SCR  THEN 

CALL  SI0$GETSAD0R(.ARG2,0);  /*  GET  BIAS  ADDR  V 

ELSE 

ARG2.SEG,ARG2.0FF  =  0; 

ARG1.SEG  =  ARG2.SEG;  /*  SEGMENT  FOR  8080  FORMAT  FLE  */ 
IF  CHARoASCR  THEN  GOTO  ERROR; 

CALL  SIOSCRLF; 

LOOP: 

00  'WHILE  S 1 0$READSCHAR<>'  : '  ;END; 

CHECKS SUM  =  0; 

LEN  =  S I CSREADS9YTE; 

OFFSET  =  SIOSREADSWORD; 

ARGI .OFF  =  OFFSET  +■  ARG2.0FF; 

RECSTYPE  =  S I OSREAOSBYTE; 

IF  REC$TYPE=03  THEN  /*  START  AOOR  TYPE  V 
00; 

CS  *  S 1 03 RE AD SWORD ; 

IP  =  SIOSREAOS'WORO; 

END; 

IF  RECSTYPE=02  THEN  /*  EXTENDED  ADDR  TYPE  V 

ARG1.SEG  =  SIOSREAOS'WORO  +  ARG2.SEG; 

IF  RECSTYPE=OI  THEN 

IF  OFFSET  <>  0  THEN 

IP  =  OFFSET;  /*  EOF  RECOPD  V 

iF  »ECSTYPE=00  THEN  /*  DATA  TYPE  V 
DO  1  =1  TO  LEN; 

'•EMORY  J4R-5I  =  S  I  OJREADSBYTc  ; 
r  =  "EMORYSARGI  ; 

IF  "EMORYSARGI  <>t  then 
70; 

■.'.ALL  S I OSOUTSSTR  ING(  .MEMSRWSERR) ; 

.'ALL  SIOSCRLF; 

GOTO  ERROR; 

END; 

ARGI  .OFF  =  AiiGt  .OFF  *•  1  ; 

END; 

T  =  S :  CSREsC$3YTE;  /*  FETCH  CHECKSUM  V 
IF  CHECK  JSUMoO  THEN 
20; 

CALL  S I OSOUTSSTR I NG( .CHECKSSUMSERRSMSG) ; 

GOTO  ERROR; 

END; 

IF  RECSTYPE<>01  AND  LEN-  >0  T^EN  GOTO  LOOP;  /*  EOF  V 
;100E  =  SERIAL; 

CALL  S I  OSOU  T  S  SIR  I  NG  ( .  S  TAR  TS-MSG ) ; 

CALL  SI OSCUTSWORDl IP); 

CALL  SIOSCRLF ; 


514  l  Ei'iD  SIOSPF.AOSHEXSF  ILE; 


H 
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/****♦*# #****#*# *# »»#**** ******************** 

*  INTERRUPT  AND  RESTORE/EXECUTE  SECTION  * 

*****#***#*************»**##******»*****##**/ 


/*»»»»»**••**»*»•****«•**»*»««*••«*««**«•***•*•****»•«**••»•*•*»•» 

COMMAND  MODULE 


ABSTRACT 

THIS  MODULE  CONTAIN  ALL  THE  COMMANDS  I  ‘-PLEMENTED  AS  INDIVIDUAL  PROCEDURES 
AND  CALLED  .-ROM  THE  CUTER  3L0CK  OF  THE  COMMAND  DISPATCH  LOOP. 

MODULE  ORGANIZATION 

THIS  MODULE  CONTAIN  THE  FOLLOWING  SECTIONS: 


1  . 


COMMANDS  SECT 
SIOSGO 
SIOSEXAMJMEM 
SIOiMOVE 
SI OSD I  SPLAY 
SlOSCONPARE 
S I OSF I  NO 
S'OShEXSARITH 
SI  OS  INPUT 
S I 030UTPUT 
SIOSREAO 
SIOSLOAD 


GO 

SUBSTITUTE  MEMORY 
MOVE 

DISPLAY  BYTES 
COMPARE  '-EMORY 
FIND  BYTE/ADDRESS 
PERFORM  HEX  ARITHMETIC 
INPUT  PORT 
OUTPUT  PORT 
READ  DATA  RECORDS 
LOAD  FILE 


siosfill  fill  memory  with  constant 


2.  COMMAND  DISPATCH  (CUTER  BLOCK,  MAIN  PROGRAM  LOC°) 
NEX TSCOMMANO  0 1 SPATCH 

ERROR  ERROR  ROUTINE 

V 

/*♦♦**#»##*##*********■#*#****#*» 

*  COMMAND  SECTION  * 

***-•**#  *#*♦#*****##*****♦#***##*/ 


315 


316 


SIOtGO: 

/*  I  PLEMENTS  THE  *30’  COMMAND.  THE  USER  MAY  SPECIFY  A  NEW 
i P :PC  */ 

PROCEDURE; 

DECLARE  EXECGOl*)  BYTE  DATA 

(  060H,  /*  mov  H,3  */ 

069H,  /*  MOV  L,C  V 

0E9H  ),  /*  PCHL  V 

EXECGOSPTR  ADDRESS  DATA  (.EXECGO); 


317  2  CALL  S I OSUPDATES  IP; 

313  2  IF  CHAR  <>  A SCR  THEN  GOTO  ERROR; 
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320 

2 

IP  =  CSIP.OFF; 

321 

2 

CS  =  CSIP.SEG; 

322 

2 

CALL  SIOSCRLF; 

323 

2 

CALL  EXECGOSPTR( IP); 

324 

2 

END  SIOSGO; 

325 

1 

SIOSEXAMSMEM: 

/*  IMPLEMENTS  THE  EXAMINE  MEMORY  COMMAND.  */ 

PROCEDURE; 

326 

2 

DECLARE  W  ADORE SS; 

327 

2 

CALL  S 1 0$TE  STSWORDSMOOE ; 

323 

2 

CALL  SIOJGET$ADOR(.ARG1 ,CS>; 

329 

2 

IF  CHAR<>\  ’  THEN  GOTO  ERROR; 

331 

2 

DO  WHILE  TRUE; 

332 

3 

CALL  SIOSOUTSBLANK; 

333 

3 

IF  WORDSMOOE  THEN 

334 

3 

CALL  S 1 OSOUTSWORD (MEMORY SADDRESSSARG1 ) ; 

ELSE 

335 

3 

CALL  S 1 OSOUTS8YTE$PTR(MEMORYSARG1 SPTR) ; 

336 

3 

CALL  SIOSOUTSCHAR ('-'); 

337 

3 

CALL  SIOSOUTSBLANK; 

338 

3 

CALL  SIOSGETSCHAR; 

539 

3 

IF  CHAR=ASCR  THEN  RETURN; 

341 

3 

IF  CHARo','  THEN 

542 

3 

00; 

343 

4 

W  •=  S 1 OSGETSWORQ; 

344 

4 

IF  (CHAR  <>  AND  (CHAR  <>ASCR)  THEN  GOTO  1 

346 

4 

IF  WORDSMOOE  THEN 

34  7 

4 

00; 

343 

5 

MEM0RY$ACDRESS$.ARG1  =  W: 

349 

6 

i-  :emorys\doress$argi<>w  then  goto  error 

351 

5 

END; 

ELSE 

352 

4 

00; 

353 

5 

•EMCRYJARGI  =  LOW(W); 

354 

5 

IF  '-'EMOR Y $ ARG 1  < >L0W ( W )  THEN  GOTO  ERROR; 

356 

5 

END; 

357 

4 

END; 

353 

3 

IF  CHAR=ASCR  THEN  RETURN; 

360 

3 

IF  WORDSMOOE  THEN 

361 

3 

ARG1  .OFF  =  ARG1  .OFF  +  2; 

ELSE 

762 

3 

<\RG1  .OFF  =  ARG1  .OFF  +  1  ; 

363 

3 

CALL  SIOSCRLF; 

364 

3 

CALL  SIOSOUTSWCRDtARGI .OFF); 

365 

3 

END; 

366 

2 

ENO  S 1 OSEXAMSMEM; 

567  1  SIOSMOVE: 
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/*  I  ELEMENTS  THE  MOVE  COMMAND.  ACCEPTS  3  ARGUMENTS  AMD  MOVES  THE 
BLOCK  Of  MEMORY  SPECIFIED  BY  ARG1-ARG2  TO  ARG3.  ARG2<ARG1  OR  THERE 
IS  A  DIFFERENCE  WHEN  THE  BYTE  IS  READ  BACK,  THEN  ERROR.  */ 
PROCEDURE; 


363 

2 

CALL  S 1 OSSCANSBLANK; 

369 

2 

CALL  SIOSGET$ADDR( .ARG1 ,CS); 

/*  FIRST 

ARGUMENT  */ 

370 

2 

IF  UWARo',’  THEN  GOTO  ERROR; 

372 

2 

CALL  SIOSGETSCHAR; 

373 

2 

ENDSOFF  =  SI0$GET$W0RD; 

/*  SECOND 

ARGUMENT  V 

574 

2 

IF  ENDS0FF<ARG1 .OFF  THEN  GOTO  ERROR; 

3  76 

2 

IF  CHARo','  THEN  GOTO  ERROR; 

3  73 

2 

CALL  S 1 OSGETSCHAR; 

379 

2 

CALL  3 1 OSGETSADDRt .  ARG3,CS> ; 

/*  THIRD 

ARGUMENT  V 

380 

2 

IE  "HAPoASCR  THEN  GOTO  ERROR; 

332 

2 

CALL  S10SCRLF; 

333 

2 

DO  WHILE  ARG1.0FF  <=  ENDSOFF; 

334 

3 

NEMORYSARG3  =  MEMORY SARG1  ; 

335 

3 

IF  .MEM0RYSARG3<>MEM0RY$ARG1 

THEN  GOTO 

ERROR; 

337 

3 

ARG1  .OFF  =  ARG1  .OFF  »■  1 ; 

383 

3 

ARG3.0FF  =  ARG3.0FF  +  1; 

DR9 

3 

END; 

390 

2 

END  SIOSMOVE; 

391 

1 

S 1  OSD  1  SPLAY: 

/*  IMPLEMENTS  THE  DISPLAY  BYTE  COMMAND.  IF  CALLED  WITH  1  PAriM  THEN 

OUTPUTS  A  SINGLE  BYTE.  IF  CALLED  WITH  2  PARMS  THEN  OUTPUTS  THE  RANGE 
BETWEEN  THE  TWO  ADDRESSES.  IF  CFFSETOEGIN  THEN  OUTPUTS  ONLY  A  SINGLE 
Bl'TE.  V 
PROCEDURE; 

392  2  DECLARE  (X,Y)  BYTE, 

T  ADDRESS; 


393 

2 

ARG2.CFF,  ARG2.SEG  =  0; 

594 

2 

CALL  SIOSGETSCHAR; 

395 

2 

CALL  SICSGETJADDR(.ARGI,CS); 

396 

2 

IF  CKAJR=ASCR  THEN 

397 

2 

ENDSOFF  =  ARG1 .OFF; 

ELSE 

393 

2 

CO; 

399 

3 

IF  CHARo V  THEN  GOTO  ERROR; 

401 

3 

CALL  S 1 OSGETSCHAR; 

402 

3 

ENDSOFF  =  S 1 OSGETSWCRD ; 

403 

3 

IF  ENDSOFF  <  ARGI.OFF  THEN  GOTO  ERROR 

405 

5 

:c  CHAR  <>  A SCR  THEN  G0T0  ERROR; 

407 

5 

END; 

408 

2 

NEWL 1 NE : 

ARG2.0FF  *  ARGI.OFF; 

409 

2 

CALL  SIOSCRLF; 

t!  0 

2 

CALL  SI OSOUTSWORD ( ARG1  .OFF); 
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41  1 

2 

CALL  SIOSOUTSBLANK; 

412 

2 

Y  =  0; 

413 

2 

LOOP: 

CALL  S f OSOUTSBYTESPTR (MEMORYSARGt JPTR ) ; 

414 

2 

IF  ARG1  .OFF  >=  ENOSOFF  THEN 

415 

2 

DO; 

416 

3 

ARG1 .OFF  =  ARG1 .OFF  +  t ; 

417 

3 

T  =  0; 

418 

3 

GOTO  L00P1 ; 

419 

3 

ENO; 

420 

2 

ARG1.0FF  =  ARG1.0FF  +■  1; 

421 

-) 

4. 

Y  =  Y  >  1; 

422 

2 

IF  Y  >=  4  THEN 

423 

2 

DO; 

424 

5 

CALL  SIOSOUTSBLANK; 

425 

3 

Y  =  0; 

426 

3 

END; 

427 

2 

T  =  ARGI  .OFF  AND  OOOFH; 

423 

T 

<• 

L00P1 : 

IF  T=0  THEN 

429 

2 

DC; 

430 

3 

CALL  SIOSOUTSBLANK; 

43! 

5 

CALL  SIOSOUTSCHARC*'); 

432 

3 

DO  WHILE  ARG2.0FF  <■*  (ARG1 .OFF  -  1 

4  33 

4 

X  =  MEMORY SARG2  AND  7FH; 

4  34 

4 

IF  (X  >*  AS8L)  AND  (X  <=  7CH ) 

425 

4 

CALL  S 1  OSO'JTSCHAR(X) ; 

ELSE 

4  36 

4 

CALL  SIOSOUTSCHARC.'); 

437 

4 

ARG2.0FF  =  ARG2.0FF  +  1; 

433 

4 

ENO; 

439 

« 

CALL  SIOSOUTSCHARC*'); 

440 

3 

IF  ARGI .OFF  >=  ENOSOFF  THEN  RETURN 

412 

5 

GOTO  NEWLINE; 

143 

5 

END; 

144 

L 

GOTO  uOOP; 

445 

l 

EMU  3 1 OSO 1  SPLAY ; 

4  46 

1 

5 1  OS  COMPARE ; 

/*  I^PLE'-tNTS  THE  CCrPARE  COMMAND  »/ 

PROCEDURE; 

147 

■» 

4 

CALL  SI0SSCANS3LANK; 

143 

2 

CALL  S! OSGE  TSADDR ( .ARGI ,CS) ; 

419 

2 

IF  CHAR  <>  THEN  GOTO  ERROR; 

451 

2 

CALL  S 1 OSGETSCHAR; 

452 

2 

ENOSOFF  *  SIOSGETSWORD; 

453 

2 

IF  ENOSOFF  <  ARGI .OFF  THEN  GOTO  ERROR; 

455 

« 

IF  CHAR  <>  ','  THEN  GOTO  ERROR; 

15  7 

2 

CALL  SIGSGtTJCHAR; 
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458 

2 

CALL  SI 0$GET$ADDR( .ARG3.CS) ; 

459 

2 

IF  CHAR  <>  ASCR  THEN  GOTO  ERROR; 

461 

2 

CALL  SIOSCRLF; 

462 

2 

LOOP: 

DO  WHILE  ARG1.0FF  <=  ENDSOFF ; 

465 

3 

IF  MEM0RYSARS1  <>  MEM0RYSARG3  THEN 

464 

3 

o 

Q 

465 

4 

CALL  SIOSOUTSWORD (ARGI .OFF); 

466 

4 

CALL  S 1 OSOUTSBL ANK; 

467 

4 

CALL  S 1 0$0UT$3YT£$DTR (MEM0RYSARG1 $PTR) ; 

468 

4 

CALL  SI0S0UTS3LANK; 

469 

4 

CALL  S 1 0S0UTSW0RD (ARG3.0FF ) ; 

470 

4 

CALL  SI OSOUTSBL ANK; 

471 

4 

CALL  S 1 OSOUT$BYTESpTR (MEMORY SARG3SPTR ) ; 

472 

4 

CALL  SIOSCRLF; 

473 

4 

END; 

474 

3 

ARG1 .OFF  =  ARG1 .OFF  +  1  ; 

475 

3 

ARG3.0FF  =  ARG3.0FF  +  1  ; 

4  76 

3 

END; 

477 

2 

END  SIOSCOIPARE; 

478 

1 

S 1 0$  FIND: 

/*  IMPLEMENTS  THE  FIND  COMMAND  V 

PROCEDURE; 

479 

2 

DECLARE  SEARGHSWORD  ADDRESS; 

480 

2 

CALL  SIOSTESTSWORDSMODE; 

481 

2 

CALL  SI 0$GET$ADDR( .ARG1 ,CS) ; 

482 

-5 

IF  CHAR  <>  V  THEN  GOTO  ERROR; 

484 

2 

CALL  SIOSGETSCHAR; 

485 

2 

ENDSOF  SIOSGETSWORD; 

486 

2 

IF  ENDSOFF  <  ARGi .OFF  THEN  GOTO  ERROR; 

488 

2 

IF  CHAR  <>  THEN  GOTO  ERROR; 

490 

2 

CALL  S 10$ GETS CHAR; 

491 

2 

SE ARCHSWORD  =  SIOSGETSWORD; 

492 

2 

IF  CHAR  <>  ASCR  THEN  GOTO  ERROR; 

494 

2 

CALL  SIOSCRLF; 

495 

2 

LOOP: 

DO  WHILE  ARGI .OFF  <=  ENDSOFF; 

496 

3 

IF  WORDSMODE  THEN 

497 

3 

DO; 

498 

4 

IF  NEMOR Y S ADDRE S S S ARG 1  =  SEARCH.SwORD  THEN 

499 

4 

DO; 

500 

5 

CALL  S 1 OSOUTSWORD ( ARGI  .OFF ) ; 

501 

5 

CALL  SIOSCRLF; 

502 

5 

END; 

503 

4 

END; 

ELSE 

504 

3 

DO; 

505 

4 

IF  MEM0RYSARG1  =  LOW (SE ARCHSWORD)  THEN 

506  4  DO: 
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507 

5 

CALL  SI  OfOUT$WORO(ARG1 .OFF); 

508 

5 

CALL  SIOSCRLF; 

509 

5 

END; 

510 

4 

END; 

51 1 

3 

ARG1 .OFF  =  ARG1 .OFF  +  1 ; 

512 

3 

END; 

513 

2 

END  SIOSFIND; 

514 

1 

S 1 C$HEX$AR 1 TH : 

/*  IfPLEMENTS  THE  HEX  ARITHMETIC  COMMAND  V 
PROCEDURE; 

515  2  DECLARE  (XI  ,X2)  .ADDRESS; 

516  2  CALL  S I OtSCANIBLANK; 

517  2  XI  =  SIO$GET$WORD; 

513  2  IF  CHAR  THEN  GOTO  ERROR; 

520  2  CALL  SIOSGETSCHAR; 

521  2  W2  =  SIO$GET$WORD; 

522  2  IF  CHAR  <>  ASCR  THEN  GOTO  ERROR; 

524  2  CALL  SIOSCRLF; 

525  2  CALL  SI OSOUTSXORD (XI +X2) ; 

526  2  CALL  SIOSOUTtBLANK; 

527  2  CALL  S I OSOUTSXORO (XI  — X2 ) ; 

523  2  END  S i OtHEXSAR I TH; 

529  1  SlOtF ILL; 

/*  THIS  PROCEDURE  INPLEMENTS  THE  FILL  MEMORY  WITH  CONSTANT 
FUNCTION  V 

PROCEDURE; 

550  2  DECLARE  TEMP  BYTE; 

531  2  CALL  SICSGETJCHAR; 

532  2  CALL  3  I OSGETSACDR ( . ARG1 ,  CS); 

533  2  IF  CHAR  THEN  GOTO  ERROR; 

533  2  CALL  S I OSGETSCHAR; 

536  2  CALL  3 ' OSOETSADDRC .ARG2,  CS); 

537  2  IF  A.R32.CFF  <  ARG1  .OFF  THEN  GOTO  ERROR; 

539  2  IF  CHAR  T~iEN  GOTO  ERROR; 

341  2  TEMP  =  3IOSGET53YTE; 

542  2  IF  CHAR  <>  ASCR  THEN  GOTO  ERROR; 

544  2  CALL  SIOiCRLF; 

'45  2  00  WHILE  A^GI  .OFF  <=  ARG2.CFF; 

;46  3  MEM0RYIARG1  =  TEMP; 

547  5  IF  f-EMCRYSARGI  <>  TE'.P  THEN  GOTO  ERROR; 

549  5  ARG1  .OFF  =  APG1 .OFF  H  1; 

550  3  END; 

55!  2  ENO  SIOJFILL; 

552  I  S i OSREAO: 

/*  THIS  PROCEDURE  I ‘PLE’-CNTS  THE  PAPER  TAPE  READ  COMMAND  •/ 
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PROCEDURE ; 

4 

553 

2 

CALL  SIOSSCANJBLANK; 

554 

2 

SAVESMOOE  =  TAPE  OR  SERIAL; 

-  ■  V 

555 

2 

CALL  S 1 OSRE AD tHEX SPILE; 

556 

2 

END  SIOSREAD; 

*  COMMAND  DISPATCH  MAIN  PROGRAM  LOOP  * 

♦*#♦♦#*******#•♦#****♦*****##<  *»**#t*#»****t4****t**/ 

/*  THE  RST  5.5,  6.5,  AND  7.5  .ARE  DISABLED 

BY  USING  A  SYSTEM  CALL  WITH  THE  PARTICULAR 

SiM  MASK  AS  THE  PARAMETER.  */ 

557 

1 

01  SABLE; 

< 

333 

1 

CALL  S$MASK ( 01  PH ) ;  /*  DISABLE  RST  5.5,  6.5,  7.5,  SOD  V 

559 

1 

•ION  1  TORS  STACKPTR  =  STACKPTR; 

560 

1 

CS.IP  =  0; 

*  , 

561 

1 

WORCSMOOE  =  FALSE; 

562 

1 

MODE  =  SERIAL; 

\  ■  \  * 

563 

1 

BRF  ^  B9600 ; 

,w-.k  *1 

/*  THE  FOLLOWING  CODE  SETS  THE  DATA  RATE  OF  PORT  0.  IT 

INITIALIZES  BOTH  THE  8251 A  USART  AND  COUNTER  0  OF  8253 

INTERVAL  TIMER  f  0.  USARTS  f,  2,  A, NO  3  ARE  NOT  USEO  FOR 

THIS  '-ION  1  TOR.  */ 

• 

564 

1 

CALL  INITIALIZESBOARD; 

-•65 

1 

CHAR  =  1 NPUT(S ! OSPOIDATA) ; 

•I  -! 

566 

1 

CALL  SI OSOUTSSTR 1 NG( .S 1 GNONSMSG) ; 

^  . 

5s  7 

1 

NEXTJC0MMA7JD: 

/*  THIS  IS  THE  PERPETUAL  COMMAND  LOOP  'WHICH  DISPATCHES  TO  EACH 

\ 

COMMAND,  EACH  OF  WHICH  IS  A  SEPARATE  PROCEDURE.  V 

CALL  SIOSCRLF; 

no 

\T 

K' 

1 

CALL  SIOSOUTSCHAR (*-•); 

569 

1 

CALL  S 1 OSGETJCHAR ; 

375 

DO  1 -0  TO  LAS T(Sl OSCMNO) ; 

571 

2 

|P  CHARTS  1  CSv.MND(  1  )  THEN  GOTO  DISPATCH; 

373 

O 

END; 

.  * 

5  74 

1 

GOTO  ERROR; 

575 

1 

DISPATCH: 

LASTtCCMMAND  =  1; 

5  76 

1 

00  CASE  1 ; 

577 

2 

CAlL  SI OSEXAMJVEM;  /*  S  V 

5  79 

2 

CALL  SIOSGO;  /*  G  */ 

5  79 

2 

CALL  SIOSMOVE;  /*  ,M  */ 

590 

2 

CALL  $10*01  SPLAY;  /*  D  »/ 

H 


1  70 
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581 

o 

CALL  SIOiCO'-PARE; 

/* 

C 

*/ 

582 

2 

CALL  SIOSFIND; 

/* 

F 

*/ 

533 

2 

CALL  SIOSHEXSARITH; 

/* 

H 

V 

534 

2 

CALL  SIOSRCAD; 

/* 

R 

*/ 

585 

2 

CALL  SIOJPILL; 

/* 

Z 

V 

586 

2 

END; 

587 

1 

GOTO  NEXTSCOMMAND; 

588 

1 

ERROR: 

/»  THIS  ROUTINE  HANDLES  ALL  ERRORS  DETECTED  BY  THE  MONITOR  AND 
WILL  OUTPUT  THE  ERROR  PROMPT  TO  THE  OUTPUT  PORT.  */ 

MODE  =  SERIAL; 

589  1  STACKPTR  =  MONI TORSSTACKPTR; 

590  1  CALL  SI OSOUTSCHAR ( '#' ) ; 

591  1  CALL  S I OSMSSDELAY (50) ; 

592  1  GOTO  NEXTSCOMMAND; 

59?  1  END  MONITOR;  /*  END  OF  MODULE  */ 


MODULE  INFORMATION: 

CODE  AREA  SIZE  =  0CD8H  3283D 
VARIABLE  AREA  SIZE  =  006BH  107D 

MAXIMUM  STACK  SIZE  =  001 2H  1 8D 

1131  LINES  READ 
0  PROGRAM  ERROR(S) 

END  OP  Pe/M-80  COMPILATION 
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Abstract 

This  research  effort  describes  the  continued  development  of  an  improved 
Universal  Network  Interface  Device  (UNID  II).  The  UNID  II's 
architecture  was  based  on  a  preliminary  design  project  at  the  Air  Force 
Institute  of  Technology.  The  UNID  II  contains  two  main  hardware 
modules;  i  local  module  for  the  network  layer  software  and  a  network 
module  fcr  the  datalink  layer  software  and  physical  layer  interface. 
Each  modue  is  an  independent  single  board  computer  (SBC)  residing  on  an 
Intel  mubibus  chassis,  complete  with  its  own  memory  (EPROM  and  RAM), 
serial  liik  interfaces,  and  multibus  interface.  The  local  module  is  an 
iSBC  544 and  the  network  module  is  an  SBC  88/45.  The  network  layer 
softwaresupports  the  CCITT  X.25  protocol,  datagram  option,  and  the  data 
link  layr  software  supports  the  CCITT  X.25  LAPB  (HDLC)  protocol.  This 
report  dcuments  the  detailed  hardware  and  software  design,  integration, 
validatin  and  test  of  this  system.  6 
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